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ABSTRACT 


SUTRA  ( Saturated-Unsaturated  Transport)  is  a  computer  program  which 
simulates  fluid  movement  and  the  transport  of  either  energy  or  dissolved 
substances  in  a  subsurface  environment.  The  model  employs  a  two-dimensional 
hybrid  finite-element  and  integrated-finite-difference  method  to  approximate 
the  governing  equations  that  describe  the  two  interdependent  processes  that 
are  simulated: 
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2a) 

2b) 


fluid  density-dependent  saturated  or  unsaturated  ground-water  flow, 
and  either 

transport  of  a  solute  in  the  ground  water,  in  which  the  solute  may 
be  subject  to:  equilibrium  adsorption  on  the  porous  matrix,  and 

both  first-order  and  zero-order  production  or  decay. 


transport  of  thermal  energy  in  the  ground  water  and  solid  matrix  of 


the  aquifer. 


SUTRA  provides,  as  the  primary  calculated  result,  fluid  pressures  and  either 
solute  concentrations  or  temperatures,  as  they  vary  with  time,  everywhere  in 
the  simulated  subsurface  system.  SUTRA  may  also  be  used  to  simulate  simpler 
subsets  of  the  above  process. 

SUTRA  flow  simulation  may  be  employed  for  areal  and  cross-sectional 
modeling  of  saturated  ground-water  flow  systems,  and  for  cross-sectional 
modeling  of  unsaturated  zone  flow.  Solute  transport  simulation  using  SUTRA 
may  be  employed  to  model  natural  or  man-induced  chemical  species  transport  in¬ 
cluding  processes  of  solute  sorption,  production  and  decay,  and  may  be  applied 
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to  analyze  ground-water  contaminant  transport  problems  and  aquifer  restoration 
designs.  In  addition,  solute  transport  simulation  with  SUTRA  may  be  used  for 
modeling  of  variable  density  leachate  movement,  and  for  cross-sectional  modeling 
of  salt-water  intrusion  in  aquifers  at  near-well  or  regional  scales,  with  either 
dispersed  or  relatively  sharp  transition  zones  between  fresh  water  and  salt  water. 
SUTRA  energy  transport  simulation  may  be  employed  to  model  thermal  regimes  in 
aquifers,  subsurface  heat  conduction,  aquifer  thermal  energy  storage  systems, 
geothermal  reservoirs,  thermal  pollution  of  aquifers,  and  natural  hydrogeologic 
convection  systems. 

Mesh  construction  is  quite  flexible  for  arbitrary  geometries  employing 

quadrilateral  finite  elements  in  Cartesian  or  radial-cylindrical  coordinate 

systems.  The  mesh  may  be  coarsened  employing  'pinch  nodes'  in  areas  where 

transport  is  unimportant.  Permeabilities  may  be  anisotropic  and  may  vary 

both  in  direction  and  magnitude  throughout  the  system  as  may  most  other 

aquifer  and  fluid  properties.  Boundary  conditions,  sources  and  sinks  may  be 

time-dependent.  A  number  of  input  data  checks  are  made  in  order  to  verify  the 

input  data  set.  An  option  is  available  for  storing  intermediate  results  and 

restarting  simulation  at  the  intermediate  time.  An  option  to  plot  results  pro- 

> 

duces  output  which  may  be  contoured  directly  bn  the  printer  paper.  Options  are 
also  available  to  print  fluid  velocities  in  the  system,  to  print  fluid  mass  and 
solute  mass  or  energy  budgets  for  the  system,  and  to  make  temporal  observations 
at  points  in  the  system. 

Both  the  mathematical  basis  for  SUTRA  and  the  program  structure  are  highly 
general,  and  are  modularized  to  allow  for  straightforward  addition  of  new  methods 
or  processes  to  the  simulation.  The  FORTRAN-77  coding  stresses  clarity  and  mod¬ 
ularity  rather  than  efficiency,  providing  easy  access  for  eventual  modifications. 
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and  density-gravity  terms  which  are  involved  in  velocity  calculation.  Spurious 
velocities  can  significantly  add  to  the  dispersion  of  solute  or  energy.  This 
faLse  dispersion  makes  accurate  simulation  of  all  but  systems  with  very  low 
vertical  concentration  or  temperature  gradients  impossible,  even  with  fine 
vertical  spatial  discretization.  Velocities  as  calculated  in  SUTRA,  however, 
are  based  on  a  new,  consistent,  spatial  and  temporal  discretization,  as  intro¬ 
duced  in  this  report.  The  consistently-evaluated  velocities  allow  stable  and 
accurate  transport  simulation  (even  at  steady  state)  for  systems  with  large 
vertical  gradients  of  concentration  or  temperature.  An  example  of  such  a 
system  that  SUTRA  successfully  simulates  is  a  cross-sectional  regional  model 
of  a  coastal  aquifer  wherein  the  transition  zone  between  horizontally  flowing 
fresh  water  and  deep  stagnant  salt  water  is  relatively  narrow. 

The  time  discretization  used  in  SUTRA  is  based  on  a  backwards  finite- 
difference  approximation  for  the  time  derivatives  in  the  balance  equations. 

Some  non-linear  coefficients  are  evaluated  at  the  new  time  level  of  solution 
by  projection,  while  others  are  evaluated  at  the  previous  time  level  for  non¬ 
iterative  solutions.  All  coefficients  are  evaluated  at  the  new  time  level  for 
iterative  solutions. 

The  finite-element  method  allows  the  simulation  of  irregular  regions  with 
irregular  internal  discretization.  This  is  made  possible  through  use  of  quad¬ 
rilateral  elements  with  four  corner  nodes.  Coefficients  and  properties  of  the 
system  may  vary  in  value  throughout  the  mesh.  Manual  construction  and  data  pre 
paration  for  an  irregular  mesh  requires  considerable  labor,  and  it  may  be  worth 
while  for  the  user  to  develop  or  obtain  interactive  software  for  this  purpose 
in  the  event  that  irregular 


mesh  construction  is  often  required. 


also  be  used  for  modeling  of  variable  density  leachate  movement,  and  for  cross- 
sectional  modeling  of  salt-water  intrusion  in  aquifers  at  both  near-well  or 
regional  scales  with  either  dispersed  or  relatively  sharp  transition  zones  be¬ 
tween  fresh  water  and  salt  water.  SUTRA  energy  transport  simulation  may  be 
employed  to  model  thermal  regimes  in  aquifers,  subsurface  heat  conduction,  aquifer 
thermal  energy  storage  systems,  geothermal  reservoirs,  thermal  pollution  of 
aquifers,  and  natural  hydrc geo  logic  convection  systems. 

1 . 5  SUTRA  Numerical  Methods 

SUTRA  simulation  is  based  on  a  hybridization  of  finite-element  and  inte¬ 
grated-finite-difference  methods  employed  in  the  framework  of  a  method  of 
weighted  residuals.  The  method  is  robust  and  accurate  when  employed  with 
proper  spatial  and  temporal  discretization.  Standard  finite-element  approxi¬ 
mations  are  employed  only  for  terms  in  the  balance  equations  which  describe 
fluxes  of  fluid  mass,  solute  mass  and  energy.  All  other  non-flux  terms  are 
approximated  with  a  finite-element  mesh  version  of  the  integrated-finite- 
difference  methods.  The  hybrid  method  is  the  simplest  and  most  economical 
approach  which  preserves  the  mathematical  elegance  and  geometric  flexibility 
of  finite-element  simulation,  while  taking  advantage  of  finite-difference 
ef  f ic iency . 

SUTRA  employs  a  new  method  for  calculation  of  fluid  velocities.  Fluid 
velocities,  when  calculated  with  standard  finite-element  methods  for  systems 
with  variable  fluid  density,  may  display  spurious  numerically  generated  compo¬ 
nents  within  each  element.  These  errors  are  due  to  fundamental  numerical 
inconsistencies  in  spatial  and  temporal  approximations  for  the  pressure  gradient 


Almost  all  aquifer  material,  flow,  and  transport  parameters  may  vary  in 


value  throughout  the  simulated  region.  Sources  and  boundary  conditions  of 
fluid,  solute  and  energy  may  be  specified  to  vary  with  time  or  may  be  constant 

SUTRA  dispersion  processes  include  diffusion  and  two  types  of  fluid 
velocity-dependent  dispersion.  The  standard  dispersion  model  for  isotropic 
media  assumes  direction-independent  values  of  longitudinal  and  transverse  dis- 
persivity.  A  velocity-dependent  dispersion  process  for  anisotropic  media  is 
also  provided  and  is  introduced  in  the  SUTRA  documentation.  This  process 
assumes  that  longitudinal  dispersivity  varies  depending  on  the  angle  between 
the  flow  direction  and  the  principal  axis  of  aquifer  permeability  when  perme¬ 
ability  is  anisotropic. 

1.4  Some  SUTRA  Applications 

SUTRA  may  be  employed  in  one-  or  two-dimensional  analyses.  Flow  and 
transport  simulation  may  be  either  steady-state  which  requires  only  a  single 
solution  step,  or  transient  which  requires  a  series  of  time  steps  in  the  numer 
ital  solution.  Single-step  steady-state  solutions  are  usually  not  appropriate 
for  non-linear  problems  with  variable  density,  saturation,  viscosity  and  non¬ 
linear  sorption. 

SUTRA  flow  simulation  may  be  employed  for  areal  and  cross-sectional 
modeling  of  saturated  ground-water  flow  systems,  and  unsaturated  zone  flow. 
Some  aquifer  tests  may  be  analyzed  with  flow  simulation.  SUTRA  solute  trans¬ 
port  simulation  may  be  employed  to  model  natural  or  man-induced  chemical 
species  transport  including  processes  of  solute  sorption,  production  and  decay 
Such  simulation  may  be  used  to  analyze  ground-water  contaminant  transport  prob 
iems  and  aquifer  restoration  designs.  SUTRA  solute  transport  simulation  may 


1 . 3  SUTRA  Processes 


Simulation  using  SUTRA  is  in  two  space  dimensions,  although  a  three- 
dimensional  quality  is  provided  in  that  the  thickness  of  the  two-dimensional 
region  in  the  third  direction  may  vary  from  point  to  point.  Simulation  may  be 
done  in  either  the  areal  plane  or  in  a  cross-sectional  view.  The  spatial  coor¬ 
dinate  system  may  be  either  Cartesian  <x,y)  or  radial-cylindrical  (r,z).  Areal 
simulation  is  usually  physically  unrealistic  for  variable-density  fluid  problems. 

Ground-water  flow  is  simulated  through  numerical  solution  of  a  fluid  mass 
balance  equation.  The  ground-water  system  may  be  either  saturated,  or  partly  or 
completely  unsaturated.  Fluid  density  may  be  constant,  or  vary  as  a  function 
of  solute  concentrations  or  fluid  temperature. 

SUTRA  tracks  the  transport  of  either  solute  mass  or  energy  in  the  flowing 
ground  water  through  a  unified  equation  which  represents  the  transport  of  either 
solute  or  energy.  Solute  transport  is  simulated  through  numerical  solution  of 
a  solute  mass  balance  equation  where  solute  concentration  may  affect  fluid  den¬ 
sity.  The  single  solute  species  may  be  transported  conservatively,  or  it  may 
undergo  equilibrium  sorption  (through  linear,  Freundlich  or  Langmuir  isotherms). 
In  addition,  the  solute  may  be  produced  or  decay  through  first-  or  zero-order 
processes . 

Energy  transport  is  simulated  though  numerical  solution  of  an  energy  bal¬ 
ance  equation.  The  solid  grains  of  the  aquifer  matrix  and  fluid  are  locally 
assumed  to  have  equal  temperature,  and  fluid  density  and  viscosity  may  be 
affected  by  the  temperature. 


The  SUTRA  model  stresses  general  applicability,  numerical  robustness  and 
accuracy,  and  clarity  in  coding.  Computational  efficiency  is  somewhat  dimin¬ 
ished  to  preserve  these  qualities.  The  modular  structure  of  SUTRA,  however 
allows  implementation  of  any  eventual  changes  which  may  improve  efficiency. 

Such  modifications  may  be  in  the  configuration  of  the  matrix  equations,  in  the 
solution  procedure  for  these  equations,  or  in  the  finite-element  integration 
routines.  Furthermore,  the  general  nature  and  flexibility  of  the  input  data 
allows  easy  adaptability  to  user-friendly  and  graphic  input-output  programming. 
The  modular  structure  would  also  ease  major  changes  such  as  modifications  for 
multi-layer  (quasi-three-dimensional)  simulations,  or  for  simultaneous  energy 
and  solute  transport  simulations. 

SUTRA  is  primarily  intended  for  two-dimensional  simulation  of  flow,  and 
either  solute  or  energy  transport  in  saturated  variable-density  systems.  While 
unsaturated  flow  and  transport  processes  are  included  to  allow  simulation  of 
some  unsaturated  problems,  SUTRA  numerical  algorithms  are  not  specialized  for 
the  non-linearities  of  unsaturated  flow  as  would  be  required  of  a  model  simu¬ 
lating  only  unsaturated  flow.  Lacking  these  special  methods,  SUTRA  requires 
fine  spatial  and  temporal  discretization  for  unsaturated  flow,  and  is  therefore 
not  an  economical  tool  for  extensive  unsaturated  flow  modeling.  The  general 
unsaturated  capability  is  implemented  in  SUTRA  because  it  fits  simply  in  the 
structure  of  other  non-linear  coefficients  involved  in  density-dependent  flow 
and  transport  simulation  without  requiring  special  algorithms.  The  unsaturated 
flow  capability  is  thus  provided  as  a  convenience  to  the  user  for  occasional 
analyses  rather  than  as  the  primary  application  of  this  tool. 


This  report  describes  the  physical-mathematical  basis  and  the  numerical 


methodology  of  the  SUTRA  computer  code.  The  report  may  be  divided  into  three 
levels  which  may  be  read  depending  on  the  reader's  interest.  The  overview  of 
simulation  with  SUTRA  and  methods  may  be  obtained  from  Chapter  1  -  Introduction. 
The  basis,  at  a  fundamental  level,  for  a  reader  who  will  carry  out  simulations 
with  SUTRA  may  be  obtained  by  additional  reading  of:  Chapter  2  -  Physical- 
Mathematical  Basis  of  SUTRA  Simulation,  which  gives  a  complete  and  detailed 
description  of  processes  which  SUTRA  simulates  and  also  describes  each  physical 
parameter  required  by  SUTRA  input  data,  Chapter  3  -  Fundamentals  of  Numerical 
Algorithms,  which  gives  an  introduction  to  the  numerical  aspects  of  simulation 
with  SUTRA,  Chapter  6  -  Simulation  Examples,  and  Chapter  7  -  Simulation  Setup 
which  includes  the  SUTRA  Input  Data  List.  Finally,  for  complete  details  of  SUTRA 
methodology,  the  following  additional  sections  may  be  read:  Chapter  4  -  Numerical 
Methods,  and  Chapter  5  -  Other  Methods  and  Algorithms.  Chapter  4  provides  the 
detail  upon  which  program  modifications  may  be  based,  while  portions  of  Chapter  5 
are  valuable  background  for  certain  simulation  applications. 

1 . 2  The  Model 

SUTRA  is  based  on  a  general  physical,  mathematical  and  numerical  struc¬ 
ture  implemented  in  the  computer  code  in  a  modular  design.  This  allows  straight¬ 
forward  modifications  and  additions  to  the  code.  Eventual  modifications  may  be, 
for  example,  the  addition  of  non-equilibrium  sorption  (such  as  two-site  models), 
equilibrium  chemical  reactions  or  chemical  kinetics,  or  addition  of  over-  and 
underburden  heat  loss  functions,  a  well-bore  model,  or  confining  bed  leakage. 


Int  roduct ion 


1 . 1  Purpose  and  Scope 

SUTRA  ( Saturated-Unsaturated  Transport )  is  a  computer  program  which 
simulates  fluid  movement  and  transport  of  either  energy  or  dissolved  substances 
in  a  subsurface  environment.  The  model  employs  a  two-dimensional  hybrid  finite- 
element  and  integrated-finite-difference  method  to  approximate  the  governing 
equations  that  describe  the  two  interdependent  processes  that  are  simulated: 

1^  fluid  density-dependent  saturated  or  unsaturated  ground-water  flow, 

and  either 

2a^  transport  of  a  solute  in  the  ground  water,  in  which  the  solute  may 

be  subject  to:  equilibrium  adsorption  on  the  porous  matrix,  and 
both  first-order  and  zero-order  production  or  decay, 
or, 

2b^  transport  of  thermal  energy  in  the  ground  water  and  solid  matrix  of 

the  aquifer. 

SUTRA  provides,  as  the  primary  calculated  result,  fluid  pressures  and  either 
solute  concentrations  or  temperatures,  as  they  vary  with  time,  everywhere  in 
the  simulated  subsurface  system.  SUTRA  may  also  be  used  to  simulate  simpler 
subsets  of  the  above  processes. 
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Figure  6.18 

SUTRA  results  after  90  days  of  pumping,  (180  days 
total  elapsed  time.) - 

Figure  6.19 

Propagation  of  moisture  front  for  unsaturated  flow  and 
solute  transport  example.  Results  of  Van  Genuchten 
(1982)  and  SUTRA  shown  in  same  solid  line. - 


Figure  6.20 
Propagation  of  solute 


slug  for  unsaturated  flow  and  solute 


transport  example.  Results  of  Van  Genuchten  (1982)  and 


SUTRA  shown  in  same  solid  line. 


Figure  7.1 
Minimization  of 


band  width  by  careful  numbering  of  nodes. 


Figure  7.2 

Allocation  of  sources  and  boundary  fluxes 
in  equal-sized  elements. - 
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Figure  6.8 

Nearly  steady-state  solute  plume  (with  solute 


half-life  ~  20.  years)  as  simulated  for  the 

Rocky  Mountain  Arsenal  example  by  SUTRA. - 195 
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Boundary  conditions  and  finite-element  mesh 

for  Henry  (  1964)  solution. - 197 
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et  al  (1975)  (dotted  line),  Frind  (1982)  (long  and 
short  dashes),  Desai  and  Contractor  (1977)  (long  dashes). 

SUTRA  results  at  isochlors  (0.25,0.50,0.75)  (solid  line). 

Henry  (1964)  solution  for  Dm  *  18.8571  x  10“^  [m^/sj, 


(0.50  isochlor,  dash-dot). - 203 

Figure  6.13 

Radial  two-dimensional  finite-element  mesh  for 

aquifer  thermal  energy  storage  example. - 205 
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SUTRA  results  after  30  days  of  hot  water  injection. - 207 

Figure  6.15 

SUTRA  results  after  90  days  of  hot  water  injection. - 208 
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SUTRA  results  after  30  days  of  pumping,  (120  days 

total  elapsed  time).:- - 210 

Figure  6.17 

SUTRA  results  after  60  days  of  pumping,  (150  days 

total  elapsed  time.) - 211 
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Figure  5.3 

Detail  of  mesh  with  a  pinch  node.- 


Figure  5.4 

Finite  element  in  local  coordinates  (£.h)  with 
pinch  nodes. - 


Figure  5.5 

Finite  element  in  global  coordinates  (x,y)  with  element 
centroid. - 


Figure  5.6 

Schematic  of  SUTRA  output. 
Figure  5.7 

SUTRA  logic  flow. - 


Figure  6.1 

Radial  finite-element  mesh  for  Theis  solution. 


Figure  6.2 

Match  of  Theis  analytical  solution  (solid  line) 
with  SUTRA  solution  (+). - 


Figure  6.3 

Radial  finite-element  mesh  for  constant-density 
solute  and  energy  transport  examples . - - - 


Figure  6.4 

Match  of  analytical  solutions  for  radial  solute 
transport  of  Hoopes  and  Harleman  (1967)  (dashed), 
Gelhar  and  Collins  (1971),  (solid),  and  SUTRA 
solution  (dash-dot).  Number  of  elapsed  time 
steps  is  n. - 


Figure  6.5 

Match  of  analytical  solution  for  radial  energy 
transport  (modified  from  Gelhar  and  Collins  (1971) 
solid  line)  with  SUTRA  solution  (dashed  line). 
Number  of  elapsed  time  steps  is  n. - 


Figure  6.6 

Idealized  representation  for  example  at  Rocky 
Mountain  Arsenal,  and  finite-element  mesh. - 


Figure  6.7 

Nearly  steady-state  conservative  solute  plume 
as  simulated  for  the  Rocky  Mountain  Arsenal 
example  by  SUTRA. - 
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'Pinch  nodes'  may  be  introduced  in  the  finite-element  mesh  to  allow  for 
quick  changes  in  mesh  size  from  a  fine  mesh  in  the  region  where  transport  is  of 
primary  interest,  to  the  external  region,  where  only  a  coarse  mesh  is  needed  to 
define  the  flow  system.  Pinch  nodes,  although  simplifying  mesh  design  and  re¬ 
ducing  the  number  of  nodes  required  in  a  particular  mesh,  also  increases  the 
matrix  equation  band  width.  Because  SUTRA  employs  a  band  solver,  the  increased 
band  width  due  to  the  use  of  pinch  nodes  may  offset  the  gain  in  computational 
efficiency  due  to  fewer  nodes.  Substitution  of  a  non-band-width-dependent 
solver  would  guarantee  the  advantage  that  pinch  nodes  can  provide.  However, 
mesh  designs  employing  pinch  nodes  may  be  experimented  with,  using  the  present 
solver . 

SUTRA  includes  an  optional  numerical  method  based  on  asymmetric  finite 
element  weighting  functions  which  results  in  'upstream  weighting'  of  advective 
transport  and  unsaturated  fluid  flux  terms.  Although  upstream  weighting  has 
typically  been  employed  to  achieve  stable,  non-oscillatory  solutions  to  trans¬ 
port  problems  and  unsaturated  flow  problems,  the  method  is  not  recommended  for 
general  use  as  it  merely  changes  the  physical  system  being  simulated  by  in¬ 
creasing  the  magnitude  of  the  dispersion  process.  A  practical  use  of  the  method 
is,  however,  to  provide  a  simulation  of  the  sharpest  concentration  or  temperature 
variations  possible  with  a  given  mesh.  This  is  obtained  by  specifying  a  simula¬ 
tion  with  absolutely  no  physical  diffusion  or  dispersion,  and  with  50%  upstream 
weighting.  The  results  may  be  interpreted  as  the  solution  with  the  minimum 
amount  of  dispersion  possible  for  a  stable  result  in  the  particular  mesh  in  use. 

In  general  simulation  analyses  of  transport,  upstream  weighting  is  dis¬ 
couraged.  The  non-upstream  methods  are  also  provided  by  SUTRA,  and  are  based 
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on  symmetric  weighting  functions.  These  methods  are  robust  and  accurate  when 


the  finite-element  mesh  is  properly  designed  for  a  particular  simulation,  and 
are  those  which  should  be  used  for  most  transport  simulations. 

1.6  SUTRA  as  a  Tool  of  Analysis 

SUTRA  will  provide  clear,  accurate  answers  only  to  well-posed,  well- 
defined,  and  well-discretized  simulation  problems.  In  less-well-defined 
systems,  SUTRA  simulation  can  help  visualize  a  conceptual  model  of  the  flow 
and  transport  regime,  and  can  aid  in  deciding  between  various  conceptual  models. 

In  such  less-well-defined  systems,  simulation  can  help  answer  questions  such  as: 

Is  the  (inaccessible)  aquifer  boundary  which  is  (probably)  ten  kilometers  offshore 
either  leaky  or  impermeable?  How  leaky?  Does  this  boundary  affect  the  primary 
analysis  of  onshore  water  supply? 

SUTRA  is  not  useful  for  making  exact  predictions  of  future  responses  of 
the  typical  hydrologic  systems  which  are  not  well  defined.  Rather,  SUTRA  is 
useful  for  hypothesis  testing  and  for  helping  to  understand  the  physics  of 
such  a  system.  On  the  other  hand,  developing  an  understanding  of  a  system  based 
on  simulation  analysis  can  help  make  a  set  of  worthwhile  predictions  which  are 
predicated  on  uncertainty  of  both  the  physical  model  design  and  model  parameter 
values.  In  particular,  transport  simulation  which  relies  on  large  amounts  of 
dispersion  must  be  considered  an  uncertain  basis  for  prediction,  because  of  the 
highly  idealized  description  inherent  in  the  SUTRA  dispersion  process. 

A  simulation-based  prediction  made  with  certainty  is  often  inappropriate, 
and  an  "if-then"  prediction  is  more  realistic.  A  reasonable  type  of  result  of 
SUTRA  simulation  analysis  may  thus  be:  "Based  on  the  uncertainty  in  location 


and  type  of  boundary  condition  A,  and  uncertainty  in  the  distribution  of  values 
for  parameters  B  and  C,  the  following  predictions  are  made.  The  extreme,  but 
reasonable  combination  of  A,  B,  and  C  results  in  prediction  X;  the  opposite 
reasonable  extreme  combination  of  A,  B,  and  C  results  in  prediction  Y;  the 
combination  of  best  estimates  of  A,  B,  and  C,  results  in  prediction  Z,  and  is 
considered  most  likely." 

In  some  cases,  the  available  real  data  on  a  system  may  be  so  poor  that  a 
simulation  using  SUTRA  is  so  ambiguously  defined  that  no  prediction  at  all  can 
be  made.  In  this  instance,  the  simulation  may  be  used  to  point  out  the  need  for 
particular  types  of  data  collection.  The  model  could  be  used  to  advantage  in 
visualizing  possible  regimes  of  system  behavior  rather  than  to  determine  which 


is  accurate. 


Chapter  2 


Physical-Mathematical  Basis  of  SUTRA  Simulation 

The  physical  mechanisms  which  drive  thermal  energy  transport  and  solute 
transport  in  the  subsurface  environment  are  described  by  nearly  identical  mathema 
tical  expressions.  SUTRA  takes  advantage  of  this  similarity,  and  with  a  simple 
program  structure  provides  for  simulation  of  either  energy  or  solute  transport. 

In  fact,  SUTRA  simulation  combines  two  physical  models,  one  to  simulate  the  flow 
of  ground  water,  and  the  second  to  simulate  the  movement  of  either  thermal  energy 
or  a  single  solute  in  the  ground  water. 

The  primary  variable  upon  which  the  flow  model  is  based  is  fluid  pressure, 
p[  M/ (  L*  sc> )  )  *  p(x,y,t>.  Pressure  may  vary  spatially  in  the  ground-water 
system,  as  well  as  with  time.  Pressure  is  expressed  as  a  combination  of  fluid 
mass  units,  [  M  ]  ,  length  units  ,(Lj,  and  time  units  in  seconds,  [ s ] .  Fluid  den¬ 
sity  may  vary  depending  on  the  local  value  of  fluid  temperature  or  solute  con¬ 
centration.  Variation  in  fluid  density,  aside  from  fluid  pressure  differences, 
may  itself  drive  flows.  The  effects  of  gravity  acting  on  fluids  with  different 
density  must  therefore  be  accounted  for  in  the  flow  field. 

The  flow  of  ground  water,  in  turn,  is  a  fundamental  mechanism  upon  which 
the  physical  models  of  energy  transport  and  solute  transport  are  based.  The 
primary  variable  characterizing  the  thermal  energy  distribution  in  a  ground- 
water  system  is  fluid  temperature,  T(’Cj  =  T(x,y,t),  in  degrees  Celcius,  which 
may  vary  spatially  and  with  time.  The  primary  variable  characterizing  the  state 
of  solute  distribution  in  a  ground-water  system  is  solute  mass  fraction, 
n[Ms/M]  =  (,(x,y,t),  which  may  also  vary  spatially  and  with  time.  The  units  are 
a  ratio  of  solute  mass,  ( M,;  |  to  fluid  mass,  |M).  The  term  'solute  mass  fraction' 
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may  be  used  interchangeably  with  'solute  concentration',  and  no  difference  should 
be  implied.  Note  that  'solute  volumetric  concentration',  c[Ms/Lf^ ] ,  (mass 
of  solute,  Ms,  per  volume  of  fluid,  Lf^),  is  not  the  primary  variable 
characterizing  solute  transport  referred  to  either  in  this  report  or  in  output 
from  the  SUTRA  model.  Note  that  the  measure  of  solute  mass  [Ms]  may  be  in 
units  such  as  [mg],  [kg],  [moles],  or  [lbm],  and  may  differ  from  the  measure, 

[ M ] ,  of  fluid  mass . 

SUTRA  allows  only  the  transport  of  either  thermal  energy  or  a  single 
solute  to  be  modeled  in  a  given  simulation.  Thus,  when  simulating  energy  trans¬ 
port,  a  constant  value  of  solute  concentration  is  assumed  in  the  ground  water. 
When  simulating  solute  transport,  a  constant  ground-water  temperature  is  assumed. 

SUTRA  simulation  is  carried  out  in  two  space  dimensions  with  parameters 
varying  in  these  two  directions.  However,  the  region  of  space  to  be  simulated 
may  be  defined  as  three  dimensional,  when  the  assumption  is  made  that  all  SUTRA 
parameters  and  coefficients  have  a  constant  value  in  the  third  space  direction. 

A  SUTRA  simulation  may  be  carried  out  over  a  region  defined  over  two  space 
coordinates  (x,y)  in  which  the  thickness  of  the  region  measured  in  the  third  co¬ 
ordinate  direction  (z)  varies  depending  on  (x,y)  position. 

2.1  Physical  Properties  of  Solid  Matrix  and  Fluid 

Fluid  physical  properties 

The  ground-water  fluid  density  and  viscosity  may  vary  depending  on  pressure, 
temperature  and  solute  concentration.  These  fundamental  variables  are  defined 


as  follows: 


Total  fluid  density  is  the  sum  of  pure  water  density,  pw,  and  c.  Note  again 
that  'solute  concentration*  refers  to  solute  mass  fraction,  C,  and  not  c. 

Fluid  density,  while  a  weak  function  of  pressure  is  primarily  dependent  upon 
fluid  solute  concentration  and  temperature.  The  approximate  density  models 
employed  by  SUTRA  are  first  order  Taylor  expansions  about  a  base  (reference) 
density  other  density  models  may  be  substituted  through  minor  modifications  to 
the  program.  For  energy  transport: 

0  *  o(T)  s  P  +  |f  (T  -  T  )  (2.3) 

o  3T  o 

3 

o  |M/Lr!  base  fluid  density  at  T-T^ 

of  u 

T0  I "C  I  base  fluid  temperature 


where  p0  is  the  base  fluid  density  at  a  base  (reference)  temperature  of  T0, 
and  9p/9T  is  a  constant  value  of  density  change  with  temperature.  For  the 
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range  20°C  to  60  C,  9p/3T  is  approximately  -.  37  5  (  kg/ ( m-* •  “C )  J  ;  however, 
this  factor  varies  and  should  be  carefully  chosen  for  the  temperature  range 
of  interest. 

For  solute  transport: 


p  =  p  (  C  )  = 


+  (C 
3C 


(2.4) 


base  fluid  density  at  C=>C 


[M  /M| 
s 


base  fluid  solute  concentration 


where  pQ  is  the  base  fluid  density  at  base  concentration,  CQ.  (Usually, 

CQ=  0,  and  the  base  density  is  that  of  pure  water.)  The  factor  3p /3C  is 
a  constant  value  of  density  change  with  concentration.  For  example,  for  mix¬ 
tures  of  fresh  and  sea  water  at  20°C,  when  C  is  the  mass  fraction  of  total 
dissolved  solids,  C0  “  0,  and  pQ  *  998.2  [kg/m3),  then  the  factor,  3p/3C, 
is  approximately  700.  (kg/m3). 

Fluid  viscosity,  p  |M/Lfs),  is  a  weak  function  of  pressure  and  of  con¬ 
centration,  (for  all  except  very  high  concentrations),  and  depends  primarily  on 
fluid  temperature.  For  energy  transport  the  viscosity  of  pure  water  is  given 
in  m-k-s  units  by: 


(  248.37  } 

u ( T )  =  (2)9.4  x  ]0~'>  10  I+li3'15  [kg/(m-s) 


(2.5) 


(The  units  may  lie  converted  to  those  desired  via  a  scale  factor  in  the  program 
input  data.  ) 

For  solute  transport,  vLscosity  is  taken  to  be  constant.  For  example,  at  20UC 
in  m-k-s  units: 


||(C)  ...  _  1.0  x  10  |  k  g  /  (  m  •  s  )  | 


(2.6) 


The  total  volume  of  a  porous  medium  is  composed  of  a  matrix  of  solid  grains 
typically  of  solid  earth  materials,  and  of  void  space  which  includes  the  entire 
remaining  volume  which  the  solid  does  not  fill.  The  volume  of  void  space  may  be 
fully  or  partly  filled  with  gas  or  liquid,  and  is  commonly  referred  to  as  the 
pore  volume.  Porosity  is  defined  as  a  volume  of  voids  in  the  soil  matrix  per 
total  volume  of  voids  plus  matrix: 

e(x,y,t)  (1]  porosity 

(volume  of  voids  per  total  volume) 

where  [1]  indicates  a  limensionless  quantity. 

It  should  be  noted  that  SUTRA  employs  only  one  type  of  porosity,  e.  In 
some  instances  there  may  be  need  to  distinguish  between  a  porosity  for  pores 
which  take  part  in  fluid  flow,  and  pores  which  contain  stagnant  fluid.  (Mod¬ 
ifications  may  be  made  by  the  user  to  include  this  process.) 

The  fraction  of  total  volume  filled  by  the  fluid  is  eSw  where: 

f>w<x.y.t)  [1]  water  saturation  (saturation) 

(volume  of  water  per  volume  of  voids) 

When  Sw  =  1 ,  the  void  space  is  completely  filled  with  fluid  and  is  said  to 
be  saturated.  When  Sw  <  1 ,  the  void  space  is  only  partly  water  filled  and 
is  referred  to  as  being  unsaturated. 

When  Sw  <  1 ,  water  adheres  to  the  surface  of  solid  grains  by  surface  ten¬ 
sion  effects,  and  the  fluid  pressure  is  less  than  atmospheric.  Fluid  pressure, 
p,  is  measured  with  respect  to  background  or  atmospheric  pressure.  The  negative 
pressure  is  defined  as  capillary  pressure,  which  exists  only  for  p  <  0: 
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where  Swres  is  a  residual  saturation  below  which  saturation  is  not  expected  to 
fall  (because  the  fluid  becomes  immobile),  and  both  a  and  n  are  parameters.  The 
values  of  these  parameters  depend  upon  a  number  of  factors  and  must  be  carefully 
chosen  for  a  particular  material. 

The  total  mass  of  fluid  contained  in  a  total  volume,  VOL,  of  solid  matrix 
plus  pore  space  is  (eSwp)VOL.  The  actual  amount  of  total  fluid  mass  contained 
depends  solely  on  fluid  pressure,  p,  and  solute  concentration,  C,  or  fluid  temp¬ 
erature,  T.  A  change  in  total  fluid  mass  in  a  volume,  assuming  VOL  is  constant, 
is  expressed  as  follows: 

d( tS  p)  d( eS  p) 

VOL-dUS  p)  =  VOL  •  [ - -  dp  +  - -  dU  ]  (2.9) 

w  dp  r  dU 

where  U  represents  either  C  or  T.  Saturation,  S  ,  is  entirely  dependent  on 

w 

fluid  pressure,  and  porosity,  e,  does  not  depend  on  concentration  or  temperature 

A(  .  3S  „ 

VOL-dUS  p)  *  VOL •  [  (  S  +  ep  — -^dp  +  eS  ^  dUj  (2.10) 

w  w  dp  dp  w  9U 

The  factor,  dS^/dp,  is  obtained  by  differentiation  of  the  chosen  saturation¬ 
capillary  pressure  relationship.  For  the  example  function  given  as  (2.8), 


The  factor,  dp/dU,  is  a  constant  value  defined  by  the  assumed  density  models, 
given  by  equations  (2.3)  and  (2.4). 

Aquifer  storativitv  under  fully  saturated  conditions  is  related  to  the 
factor,  d ( f  p ) / d  p ,  by  definition,  as  follows  (Bear,  1  979): 
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3  (  6  p  ) 

dp 


(2.12) 


s  pS 

op 


whore : 


AVOL 

i  W 

S  5  - - -  (  - — 

op  VOL  Ap 


(2.13) 


S  (  x  ,  v  ) 
op 


[M/a-s2)  f1 


specific  pressure  storativity 


The  specific  pressure  storativity,  Sop,  is  the  volume  of  water  released  from 
saturated  pore  storage  due  to  a  unit  drop  in  fluid  pressure  per  total  solid  ma¬ 
trix  plus  pore  volume.  Note  that  the  common  specific  storativity,  SD  [ L — ^ ] , 
which  when  multiplied  by  confined  aquifer  thickness  gives  the  well  known  storage 
coefficient,  S|l],  is  related  to  Sop  as,  SG  =  Plg|Sop,  where  |£|[L/s2] 
is  the  magnitude  of  the  gravitational  acceleration  vector.  The  common  specific 
storativity,  S0 ,  is  analagous  to  specific  pressure  storativity,  Sop,  used  in 
Sl.'TRA,  except  that  S0  expresses  the  volume  of  water  released  from  pore  storage 
due  to  a  unit,  drop  in  piezometric  head. 

SUTRA  employs  an  expanded  form  of  the  specific  pressure  storativity  based 
on  fluid  and  bulk  porous  matrix  compressibilities.  The  relationship  is 
obtained  as  follows  bv  expanding  equation  (2.12) 


P 


S 

op 


i£. 

dp 


(2.14) 


The  coefficient  of  compressibility  of  water  is  defined  by 


R 


d£ 

dp 


(2.15) 


B 


l  V  /  (  I.  -  s~  ) 


fluid  compressibility 
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For  pure  water  at 


which  allows  the  last  term  of  (2.14)  to  be  replaced  by  epB. 

20°C,  B~4.47  X  10  ^  [kg/(m* s^ ) ] . ^  As  the  volume  of  solid  grains  VOL^ ,  in  a 
volume,  VOL,  of  porous  solid  matrix  plus  void  space  is  V0Lg  *  (l-e)*V0L,  the 
factor,  3t/3p,  may  be  expressed  as: 


ii  _  ( i -e )  a ( vol ) 

ap  =  VOL  3p 


(2.16) 


which  assumes  that  individual  9olid  grains  are  relatively  incompressible. 

The  total  stress  at  any  point  in  the  solid  matrix-fluid  system  is  the  sum  of 
effective  (intergranular)  stress,  a '  (M/lL-s^)],  and  fluid  pore  pressure,  p. 

In  systems  where  the  total  stress  remains  nearly  constant,  do'  »  -  dp,  and 
any  drop  in  fluid  pressure  increases  intergranul ar  stress  by  a  like  amount. 

This  consideration  allows  (2.16)  to  be  expressed  in  terms  of  bulk  porous  matrix 
compressibility,  as:  3e/3p  =  (l-t)a,  where 
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e  *  c  T 

(2.27a) 

w  w 

e  =  c  T 

( 2.27b) 

s  s 


c  [E/(M  • °C)  1  solid  grain  specific  heat 

S  (  c  ~  8.4  x  HT|  J/(kg-°C)  j 

for  sandsto'  at  20°C) 

An  expanded  form  of  the  solid  matrix-fluid  energy  balance  is  obtained  bv  sub¬ 
stitution  of  (2.27a,b)  and  (2.26)  into  (2.25).  This  yields: 

(fS  pc  +  (l-t)p  c  ]T  +  V-<  tS  pc  vT ) 
a  t  w  w  ss  —  w  w— 

-  V-{[S  \  +  ( 1 -e  )  A  )  I  +  tS  pc  Df-VT]  (2.28) 

—  ww  s«  ww=- 

w  s 

■  Q  c  T  +  eS  py  +  (l-e)p  y‘ 
p  w  wo  so 

2.4  Description  of  Solute  Transport  in  Ground  Water 

Subsurface  solute  transport  mechanisms 

Solute  mass  is  transported  through  the  porous  medium  by  flow  of  ground 
water  (solute  advection)  and  bv  molecuLar  or  ionic  diffusion,  which  while  small 
on  a  field  scale,  carries  solute  mass  from  areas  of  high  to  low  concentrations. 
The  actual  flow  velocities  of  the  ground  water  from  point  to  point  in  three- 
dimensional  space  of  an  aquifer  mav  vary  considerably  about  an  average,  uniform 
two-dimensional  velocity,  v,  which  is  calculated  from  Darcy’s  law  (2.22).  As 
the  true,  not-average,  velocity  field  is  usually  too  complex  to  measure  in  real 
systems,  an  additional  transport  mechanism  approximating  the  effects  of  mixing 
of  waters  with  different  concentrations  moving  both  faster  and  slower  than  the 
average  velocity,  v( x , v , t ) ,  is  hypothesized.  This  mechanism,  called  solute 
dispersion,  is  employed  in  SUTRA  as  the  best  currently  available,  though  ap¬ 
proximate,  description  of  the  mixing  process.  In  the  simple  dispersion  model 
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D(  x ,  y ,  t ) 


dispersion  tensor  (2  X  2) 


T  (x.y.t) 


temperature  of  source  fluid 


Y  (x,v,t) 
o 

yS( x,v,t ) 
o 


E/M-s 


E/Mg-s 


energy  source  in  fluid 
energy  source  in  solid  grains 


The  time  derivative  expresses  the  total  change  in  energy  stored  in  both  the  solid 
matrix  and  fluid  per  unit  total  volume.  The  term  involving  v  expresses  contribu¬ 
tions  to  locally  stored  energy  from  average-uniform  flowing  fluid  (average  energy 
advection).  The  term  involving  bulk  thermal  conductivity,  X,  expresses  heat 
conduction  contributions  to  local  stored  energy  and  the  term  involving  the  dis- 
persivitv  tensor,  D,  approximately  expresses  the  contribution  of  irregular  flows 
and  mixing  which  are  not  accounted  for  by  average  energy  advection.  The  term 


involving^!)  accounts  for  the  energy  added  by  a  fluid  source  with  temperature, 
* 

T  .  The  last  terms  account  for  energy  production  in  the  fluid  and  solid,  re¬ 
spectively,  due  to  endothermic  reactions,  for  example. 


While  more  complex  models  are  available  and  may  be  implemented  if  desired, 
SUTRA  employs  a  volumetric  average  approximation  for  bulk  thermal  conductivity. 


\  s  es  \  +  (  l-e)\ 

w  w  s 


(2.26) 


[ E/( s • L*  °C) 


fluid  thermal  conductivity 

(X  ~  0.6  [ J/( s  *m*  °C) ]  at  20°C) 
w 


E/  ( s • L • °C ) 


solid  thermal  conductivity 
(X  ~  3.5  [j/(s'm’°C)]  at  20°C 
for  sandstone) 


The  specific  energy  content  (per  unit  mass)  of  the  fluid  and  the  solid 


matrix  depends  on  temperature  as  follows: 
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Solid  matrix-fluid  energy  balance 


The  simulation  of  energy  transport  provided  by  SUTRA  is  actually  a  calcu¬ 
lation  of  the  time  rate  of  change  of  the  amount  of  energy  stored  in  the  solid 
matrix  and  fluid.  In  any  particular  volume  of  solid  matrix  plus  fluid,  the 
amount  of  energy  contained  is  ( cS  pe  +  (l-f)p  e  ]‘VOL,  where 


w  w 

s  s 

e 

w 

[E/M] 

energy  per 

unit  mass  water 

e 

s 

[E/Mc] 

energy  per 

unit  mass  solid  matrix 

P 

s 

'V'-o1 

density  of 

solid  grain  in  solid  matrix 

2  2 

and  where  (Ej  are  energy  units  (M-L  / s  j. 

The  stored  energy  in  a  volume  may  change  with  time  due  to:  ambient  water  with  a 
different  temperature  flowing  in,  well  water  of  a  different  temperature  injected, 
changes  in  the  total  mass  of  water  in  the  block,  thermal  conduction  (energy 
diffusion)  into  or  out  of  the  volume,  and  energy  dispersion  in  or  out. 

This  balance  of  changes  in  stored  energy  with  various  energy  fluxes  is 
expressed  as  follows: 

9 [ eS  pe  +  ( 1-e )p  e  ] 

- — *4 - 2-^-  -  -  V  •  (  eS  pe  v)  +  V  -  [  \ I  -  VT  J 

O  t  —  W  W —  “  *  — 

+  V • [ eS  pc  D-VTj  +  Q  c  T  +  eS  pyW  +  ( 1-e ) p  yS  (2.25) 

—  w  w*  —  pw  wo  so 

Mx,y,t)  [E/(s*L‘°C)]  bul1:  thermal  conductivity  of  solid 

matrix  plus  fluid 

I  [lj  identity  tensor  (ones  on  diagonal, 

zeroes  elsewhere)  (2x2) 

c  (E/(M*°C)]  specific  heat  of  water 

W  (c  -4.182  X  10  (J/(kg*°C)]  at  20°C) 

w 
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2.  5  Description  of  Energy  Transport  in  Ground  Water 

S u b s u rf ace  ene rgv  cran spo r t_  me ch a n i sms 

Energy  is  transported  in  the  water-solid  matrix  system  bv  flow  of  ground 
water,  and  by  thermal  conduction  from  higher  to  lower  temperatures  through  both 
the  fiuid  and  solid.  The  actual  flow  velocities  of  the  ground  water  from  point 
to  point  in  the  three-dimensional  space  of  an  aquifer  may  vary  considerably 
about  an  average  two-dimensional  velocity  uniform  in  the  z-direction,  v(.x,y,t). 
calculated  from  Darcy's  law  (2.22).  As  the  true,  not-average,  velocity  field  is 
usually  too  complex  to  measure  in  real  systems,  an  additional  transport  mechanism 
approximating  the  effects  of  mixing  of  different  temperature  ground  waters 
moving  both  faster  ar.d  slower  than  average  velocity,  v ,  is  hypothesized.  This 
mechanism,  called  energy  dispersion,  is  employed  in  SUTRA  as  the  best  currently 
available,  though  approximate  description,  of  the  mixing  process.  In  the  simple 
dispersion  model  employed,  dispersion,  in  effect,  adds  to  the  thermal  conductivity 
value  of  the  fluid-solid  medium  in  particular  directions  dependent  upon  the 
direction  of  fluid  flow.  In  other  words,  mixing  due  to  the  existence  of  non- 
uniform,  nonaverage  velocities  in  three  dimensions  about  the  average-uniform 
flow,  v,  is  conceptualized  in  two  dimensions  as  a  diffusion-like  process  with 
anisotropic  diffusivities . 

The  model  has.  in  fact,  been  shown  to  describe  transport  well  in  purely 
homogeneous  porous  media  with  uniform  one-dimensional  flows.  In  heterogeneous 
field  situations  with  non-uniform  flow  in,  for  example,  irregular  bedding  or 
fractures,  the  model  holds  only  at  the  pre-determined  scale  at  which  dispersivi- 
ries  are  calibrated  and  it  must  be  considered  as  a  currently  necessary  approxi¬ 
mation,  and  be  carefully  applied  when  extrapolating  to  other  scales  of  transport. 


of  pure  solute  mass  not  associated  with  a  fluid  source.  In  most  cases,  this 

contribution  to  the  total  mass  Is  small  compared  to  the  total  pure  water  mass 

contributed  by  fluid  sources,  Q  .  Pure  solute  sources,  T,  are  therefore 

P 

neglected  In  the  fluid  mass  balance,  but  may  be  readily  Included  in  SUTRA  for 
special  situations.  Note  that  solute  mass  sources  are  not  neglected  in  the 
solute  mass  balance,  which  is  discussed  in  section  2.4. 

While  (2.22)  is  the  most  fundamental  form  of  the  fluid  mass  balance,  it  is 
necessary  to  express  each  mechanism  represented  by  a  term  of  the  equation,  in 
terms  of  the  primary  variables,  p,  C,  and  T.  As  SUTRA  allows  variation  in  only 
one  of  C  or  T  at  a  time,  the  letter  U  is  employed  to  represent  either  of  these 
quantities.  The  development  from  equation  (2.9)  to  (2.18)  allows  the  time  der¬ 
ivative  in  (2.22)  to  be  expanded: 


3(eS  p) 
w 


(S  pS 
w  op 


(ts  f£>  U 

w  3U  3t 


(2.23) 


While  the  concepts  upon  which  specific  pressure  storativity,  S  ,  is  based,  do 

op 

not  exactly  hold  for  unsaturated  media,  the  error  introduced  by  summing  the 

storativity  term  with  the  term  involving  (dS^/Sp)  is  insignificant  as 

( 3S  / 3p)  >>>  S  . 
w  op 

The  exact  form  of  the  fluid  mass  balance  as  implemented  in  SUTRA  is  obtained 
from  (2.22)  by  neglecting  T,  substituting  (2.23)  and  employing  Darcy's  law, 
(2.19),  for  v: 


(vsop +  cp3r).!? +  (esw  !u)  It  - 


(2.24) 
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Fluid  mass  balance 


The  ''so-called1'  flow  simulation  provided  by  SUTRA  is  in  actuality  a  calcul¬ 
ation  of  how  the  amount  of  fluid  mass  contained  within  the  void  spaces  of  the 
solid  matrix  changes  with  time.  In  a  particular  volume  of  solid  matrix  and  void 
space,  the  total  fluid  mass  (eS^pl’VOL,  may  change  with  time  due  to:  ambient 
ground-water  inflows  or  outflows,  injection  or  withdrawal  wells,  changes  in 
fluid  density  caused  by  changing  temperature  or  concentration,  or  changes  in 
saturation.  SUTRA  flow  simulation  is,  in  fact,  a  fluid  mass  balance  which  keeps 
track  of  the  fluid  mass  contained  at  every  point  in  the  simulated  ground-water 
system  as  it  changes  with  time  due  to  flows,  wells,  and  saturation  or  density 
changes . 

The  fluid  mass  balance  is  expressed  as  the  sum  of  pure  water  and  pure 
solute  mass  balances  for  a  solid  matrix  in  which  there  is  negligible  net 
movement : 


3(eSwp) 

3t 


V-(eS  pv)  +  Q  +  T 
—  w  —  p 


(2.22) 


where: 


Qp(  x ,  y ,  t ) 


T  (x,y,t) 


[M/(L  - b)  ] 


( M/( L  • s) ) 


fluid  mass  source  (including  pure 
water  mass  plus  solute  mass  dissolved 
in  source  water) 

solute  mass  source  (e.g.,  dissolution 
of  solid  matrix  or  desorption) 


The  term  on  the  left  may  be  recognized  as  the  total  change  in  fluid  mass  con¬ 
tained  in  the  void  space  with  time.  The  term  involving  V  represents  contributions 
to  local  fluid  mass  change  due  to  excess  of  fluid  inflows  over  outflows  at  a 
point.  The  fluid  mass  source  term,  Q^,  accounts  for  external  additions  of  fluid 
Including  pure  water  mass  plus  the  mass  of  any  solute  dissolved  in  the  source 
fluid.  The  pure  solute  mass  source  term,  T,  may  account  for  external  additions 
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saturation,  S 


=  1.  A  relative  permea- 


,  to  a  value  of  one  at  saturation,  S 
wres  w 

bility-saturation  relationship  (Figure  2.3)  is  typically  determined  for  a  par¬ 
ticular  solid  matrix  material  in  the  laboratory  as  is  the  relationship,  S^lp^). 
Relative  permeability  is  assumed  in  SUTRA  to  be  independent  of  direction  in  the 
porous  media. 

SUTRA  allows  any  desired  function  to  be  specified  which  gives  the  relative 
permeability  in  terms  of  saturation  or  pressure.  A  general  function,  for  ex¬ 
ample,  based  on  the  saturation-capillary  pressure  relationship  given  as  an  example 
in  (2.8)  is  (Van  Genuchten,  1980): 


where  the  a  dimensionless  saturation. 


* 

S  ,  is  given  by: 
w 


* 

S 

w 


S  -  S 
w _ wres 

1  -  S 


(2.21b) 


wres 

Flow  in  the  gaseous  phase  that  fills  the  remaining  void  space  not  con¬ 
taining  fluid  when  S  <  1  is  assumed  not  to  contribute  significantly  to  total 

w 

solute  or  energy  transport  which  is  due  primarily  to  fluid  flow  and  other  trans¬ 
port  processes  through  both  fluid  and  solid  matrix.  Furthermore  it  is  assumed 
that  pressure  differences  within  the  gas  do  not  drive  significant  fluid  flow. 
These  assumptions  are  justified  in  most  common  situations  when  gas  pressure 
is  approximately  constant  throughout  the  solid  matrix  system.  Should  gas  pres¬ 
sure  vary  appreciably  in  a  field  system,  simulation  with  SUTRA,  which  is  by  def¬ 
inition  a  single  phase  flow  and  transport  model,  must  be  critically  evaluated 
against  the  possible  necessity  of  employing  a  multiphase  fluid  flow  and  trans- 
po  r  t  mode l . 
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,  and  k* .  ,  respectively,  and  the  length  of  any  radius  is  k^ ,  where  k  is  the 

max  min 


effective  permeability  for  flow  along  that  direction.  Only,  k 


max 


,  k  ,  ,  and 

min 


0,  the  angle  between  the  x-axis  and  the  maximum  direction  need  be  specified 
to  define  the  permeability,  k,  in  any  direction,  where: 

,  .2, 


k  (  x ,  y  ) 

max 

k  (  x  ,  y  ) 
min 

6  (  x  ,  v  ) 


absolute  maximum  value  of  permeability 

absolute  minimum  value  of  permeability 

angle  from  +x-coordinate  axis  to  di¬ 
rection  of  maximum  permeability,  x 


In  the  case  of  isotropic  permeability,  k  *  k  .  ,  and  0  is  arbitrary. 

max  min  1 

The  discussion  of  isotropic  and  anisotropic  permeability,  k,  applies  as 

well  to  flow  in  an  unsaturated  solid  matrix,  S  <1,  although  unsaturated  flow 

w 

has  additional  unique  properties  which  require  definition.  When  fluid  capillary 

pressure,  p^ ,  is  less  than  entry  capillary  pressure,  P  e  the  void  space  is 

saturated  «=  1 ,  and  local  porous  medium  flow  properties  are  not  pressure- 

dependent  but  depend  only  on  void  space  geometry  and  connectivity.  When 

p  >  p  „ ,  then  air  or  another  gas  has  entered  the  matrix  and  the  void  space 
c  cent  &  v 

is  only  partly  fluid  filled,  S  <1.  In  this  case,  the  ease  with  which  fluid 

w 

can  pass  through  the  solid  matrix  depends  on  the  remaining  cross-section  of 
well-connected  fluid  channels  through  the  matrix,  as  well  as  on  surface  tension 
forces  at  fluid-gas,  and  fluid-solid  interfaces.  When  saturation  is  so  small 
such  that  no  interconnected  fluid  channels  exist  and  residual  fluid  is  scattered 
about  and  tightly  bound  in  the  smallest  void  spaces  by  surface  tension,  flow 
ceases  entirely.  The  relative  permeability  to  flow,  k^,  which  is  a  measure 
of  this  behavior,  varies  from  a  value  of  zero  or  near-zero  at  the  residual  fluid 
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Permeability,  k,  describes  ease  of  fluid  flow  in  a  saturated  solid  matrix. 

When  permeability  to  flow  in  a  particular  small  volume  of  solid  matrix  differs 

depending  upon  in  which  direction  the  flow  occurs,  the  permeability  is  said  to 

be  anisotropic.  Direction-independent  permeability  is  called  isotropic.  It  is 

commonly  assumed  that  permeability  is  the  same  for  flow  forward  or  backward 

along  a  particular  line  in  space.  When  permeability  is  anisotropic,  there  is 

always  one  particular  direction,  x^,  along  which  permeability  has  an  absolute 

2 

maximum  value,  k  [L  ].  Somewhere  in  the  plane  perpendicular  to  the  'maximum 
max 

direction*  there  is  a  direction,  x  ,  in  which  permeability  has  the  absolute 

m 

2 

minimum  value,  k  ,  (L  ],  which  exists  for  the  particular  volume  of  solid  matrix, 
min 

Thus,  in  two  dimensions,  there  are  two  principal  orthogonal  directions  of 

anisotropic  permeability.  Both  principal  directions,  x  and  x  ,  are  assumed  to 

p  m 

be  within  the  (x,y)  plane  of  the  two-dimensional  model. 

The  permeability  tensor,  k,  of  Darcy's  law,  equation  (2.19)  has  four  com¬ 
ponents  in  two  dimensions.  These  tensorial  components  have  values  which  depend 
on  effective  permeabilities  in  the  x  and  y  coordinate  directions  which  are  not 
necessarily  exactly  aligned  with  the  principal  directions  of  permeability.  The 
fact  that  maximum  and  minimum  principal  permeability  values  may  change  in  both 
value  and  direction  from  place  to  place  in  the  modeled  region  makes  the  calcu¬ 
lation  of  the  permeability  tensor,  which  is  aligned  in  x  and  y,  complex.  The 
required  coordinate  rotations  are  carried  out  automatically  by  SUTRA  according 
to  the  method  described  in  section  5.1,  "Rotation  of  Permeability  Tensor". 

An  anisotropic  permeability  field  in  two  dimensions  is  completely  described 


As  a  point  of  reference,  in  order  to  relate  the  general  form  of  Darcy's 
law,  (2.19a),  back  to  a  better-known  form  dependent  on  hydraulic  head,  the 
dependence  of  flow  on  density  and  saturation  must  be  ignored.  When  the  solid 
matrix  is  fully  saturated,  Sw  =  1 ,  the  relative  permeability  to  flow  is  unity 
kr  =  1 .  When,  in  addition,  fluid  density  is  constant,  the  right  side  of 
(2.19a)  expanded  by  (2.19b)  may  be  multiplied  and  divided  by  £|g|: 

-kPl&l  D 

v  =  -  •  [V  ( — , — r)  +  V  ( ELEVATION )  )  (2.20a) 

£U  _  P i£l 

The  hydraulic  conductivity,  K  (x,y,t)  (L/s],  may  be  identified  in  this  equation 

as,  K*( kp |  j»  | ) /u;  pressure  head,  h^(x,y,t)  [ L ] ,  is  h^  *  p/(p|g|)<  Hydraulic 

head,  h(x,y,t)  [ L J ,  is  h  *  h  +  ELEVATION.  Thus,  for  constant  density, 

P 

saturated  flow: 

)  •  V  h  (2.20b) 

which  is  Darcy's  law  written  in  terms  of  the  hydraulic  head.  Even  in  this 
basic  form  of  Darcy's  law,  flow  may  depend  on  solute  concentration  and  temp¬ 
erature.  The  hydraulic  conductivity,  through  viscosity,  is  highly  dependent 
on  temperature,  and  measurably,  but  considerably  less  on  concentration.  In 
cases  where  density  or  viscosity  are  not  constant,  therefore,  hydraulic  con¬ 
ductivity,  K,  is  not  a  fundamental  parameter  describing  ease  of  flow  through  the 
solid  matrix.  Permeability,  k,  is  in  most  situations,  essentially  independent 
of  pressure,  temperature  and  concentration  and  therefore  is  the  appropriate 
fundamental  parameter  describing  ease  of  flow  in  the  SUTRA  model. 


K  1  "Is!  V( ELEVATION) 


(2.19b) 


where  |g|  is  the  magnitude  of  the  gravitational  acceleration  vector.  For  example, 
if  the  y-space-roordinate  is  oriented  directly  upwards,  then  V( ELEVATION)  is  a 
vector  of  values  (for  x  and  y  directions,  respectively):  (0,1),  and  g  =  (0,~|f>|). 
If  for  example,  ELEVATION  increases  in  the  x-y  plane  at  a  60°  angle  to  the 
x-axis,  then  V( ELEVATION)  =  ((1/2),  ( 3+ / 2  > )  and  g  =  (-(1/2) |£| ,  -(3*/2)|£|). 

The  average  fluid  velocity,  v,  is  the  velocity  of  fluid  with  respect  to  the 
stationary  solid  matrix.  The  so-called  Darcy  velocity,  3.,  for  the  sake  of  ref¬ 
erence,  is  £  a  eS^\ /.  This  value  is  always  less  than  the  true  average  fluid 
velocity,  v,  and  thus,  not  being  a  true  indicator  of  the  speed  of  water  move¬ 
ment,  'Darcy  velocity',  £,  is  not  a  useful  concept  in  simulation  of  subsurface 
transport.  The  velocity  is  referred  to  as  an  'average1,  because  true  velocities 
in  a  porous  medium  vary  from  point  to  point  due  to  variations  in  the  permeabil¬ 
ity  and  porosity  of  the  medium  at  a  spatial  scale  smaller  than  that  at  which 
measurements  were  made. 

Fluid  velocity,  even  for  a  given  pressure  and  density  distribution,  may  take 
on  different  values  depending  on  how  mobile  the  fluid  is  within  the  solid  matrix. 
Fluid  mobility  depends  on  the  combination  of  permeability,  k,  relative  perme¬ 
ability,  k^_,  and  viscosity,  p,  that  occurs  in  equation  (2.19a).  Permeability  is 
a  measure  of  the  ease  of  fluid  movement  through  interconnected  voids  in  the  solid 
matrix  when  all  voids  are  completely  saturated.  Relative  permeability  expresses 
what  fraction  of  the  total  permeability  remains  when  the  voids  are  only  partly 
fluid-filled  and  only  part  of  the  total  interconnected  void  space  is,  in  fact, 
connected  by  continuous  fluid  channels.  Viscosity  directly  expresses  ease  of 
fluid  flow;  a  less  viscous  fluid  flows  more  readily  under  a  driving  force. 


2.2  Description  of  Saturated-Unsaturated  Ground-water  Flow 

Fluid  flow  and  flow  properties 

Fluid  movement  in  porous  media  where  fluid  density  varies  spatially  may  be  driven 
by  either  differences  in  fluid  pressure  or  by  unstable  variations  in  fluid  den¬ 
sity.  Pressure-driven  flows,  for  example,  are  directed  from  regions  of  higher 
than  hydrostatic  fluid  pressure  toward  regions  of  lower  than  hydrostatic  pres¬ 
sure.  Density-driven  flows  occur  when  gravity  forces  act  on  denser  regions  of 
fluid  causing  them  to  flow  downward  relative  to  fluid  regions  which  are  less 
dense.  A  stable  density  configuration  drives  no  flow,  and  is  one  in  which 
fluid  density  remains  constant  or  increases  with  depth. 

The  mechanisms  of  pressure  and  density  driving  forces  for  flow  are  ex¬ 
pressed  for  SUTRA  simulation  by  a  general  form  of  Darcy's  law  which  is  commonly 
used  to  describe  flow  in  porous  media: 

kk 

v  -  -  (  -"gr . )  •  (Vp-p&)  (2.19a) 

wU 

where : 


v  ( x,y , t ) 

( L/s  ] 

average  fluid  velocity 

k  (x,y) 

[L2] 

solid  matrix  permeability 
(2X2  tensor  of  values) 

k  (x,y, t) 

111 

relative  permeability  to  fluid  flow 
(assumed  to  be  independent  of  direction.) 

& 

[L/s2] 

gravitational  acceleration  (gravity  vector) 
(1x2  vector  of  values) 

The  gravity  vector  is  defined  in  relation  to  the  direction  in  which 
vertical  elevation  is  measured: 


employed,  dispersion,  in  effect,  significantly  adds  to  the  molecular  diffusi- 
vitv  value  of  the  fluid  in  particular  directions  dependent  upoon  the  direction 
of  fluid  flow.  In  other  words,  mixing  due  to  the  existence  of  non-uniform, 
non-average  velocities  in  three  dimensions  about  the  average  flow,  v,  is 
conceptualized  in  two  dimensions,  as  a  diffusion-like  process  with  anisotropic 
diffusivities. 

The  model  has,  in  fact,  been  shown  to  describe  transport  well  in  purely 
homogeneous  porous  media  with  uniform  one-dimensional  flows.  In  heterogeneous 
field  situations  with  non-uniform  flows  in,  for  example,  irregular  bedding  or 
fractures,  the  model  holds  only  at  the  pre-determined  scale  at  which  dispersivi- 
ties  are  calibrated  and  it  must  be  considered  as  a  currently  necessary  approxi¬ 
mation,  and  bo  carefully  applied  when  extrapolating  to  other  scales  of  transport 

So  lu te  a  rtd_  a d s_o rbate  m ass  ba  1  anc e s 

SUTRA  solute  transport  simulation  accounts  for  a  single  species  mass  stored 
in  fluid  solution  as  solute  and  species  mass  stored  as  adsorbate  on  the  surfaces 
of  solid  matrix  grains.  Solute  concentration,  C,  and  adsorbate  concentration, 

C  (x,v,t)  [M/M.,],  (where  [M]  denotes  units  of  solute  mass,  and  [M  ]  denotes 

S  (j  (j 

units  of  solid  grain  mass),  are  related  through  equilibrium  adsorption  isotherms 
The  species  mass  stored  in  solution  in  a  particular  volume  of  solid  matrix  mav 
change  with  time  due  to  ambient  water  with  a  different  concentration  flowing  in, 
well  water  injected  with  a  different  concentration,  changes  in  the  total  fluid 
mass  in  the  block,  solute  diffusion  or  dispersion  in  or  out  of  the  volume,  trans 
for  of  dissolved  species  to  adsorbed  species  (or  reverse),  or  a  chemical  or  bio¬ 
logical  reaction  causing  solute  production  or  decay.  The  species  mass  stored  as 


adsorbate  on  the  surface  of  solid  grains  in  a  particular  block  of  so'-'d  matrix 
may  change  with  time  due  to  a  gain  of  adsorbed  species  by  transfer  of  solute 
from  the  fluid  (or  reverse),  or  a  chemical  or  biological  reaction  causing  adsor¬ 
bate  production  or  decay. 

The  separate  balances  for  a  single  species  stored  in  solution  (solute)  and 
on  the  solid  grains  (adsorbate),  are  expressed,  respectively,  as  follows: 


3<eS  pC) 

— - -  =  -f  -  V - ( eS  pvC )  +  V - { e S  p(D  I  +  D)-VC] 

3t  -  w-  —  w  m  =  ■  — 

*  (2.29) 

+  eS  pr  +  Q  C 
w  w  p 

3 [ ( 1-e )p  C  ) 

- — - =  +f  +  (l-e)p  T  (2.30) 

d  t  S  s 


f  (  x, y , t ) 


D 

m 


I 

JE 


D(  x  ,  y  ,  t ) 


(M  /(L3-s)) 
s 


(L2/sj 


HI 


volumetric  adsorbate  source  (gain  of 
absorbed  species  by  transfer  from  fluid 
per  unit  total  volume) 


apparent  molecular  diffusivity  of  solute 
in  solution  in  a  porous  medium 
tortuosity  effects,  (D  ~l.x  10 
for  NaCl  at  20. °C).  ™ 

identity  tensor  (ones  on  diagonal, 
zero  elsewhere)  (2x2) 


^nclijding 

[m  / s  J 


[L2/s] 


dispersion  tensor 


T  ( x , y , t )  [M/M's] 

w  s 


solute  mass  source  in  fluid  (per  unit 
fluid  mass)  due  to  production  reactions 
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solute  concentration  of  fluid  sources 
(mass  fraction) 


(M  /Mj 
s 

|Mg/M(.]  specific  concentration  of  adsorbate  on 

solid  grains  (mass  adsorbate/(mass  solid 
grains  plus  adsorbate)) 

3 

(M  /L  )  density  of  solid  grains  in  solid  matrix 

G  G 

(Mg/Mg‘s)  adsorbate  mass  source  (per  unit  solid 

matrix  mass)  due  to  production  reactions 
within  adsorbed  material  itself. 

where  [L  '’)  is  the  volume  of  solid  grains. 

G 

Equation  (2.29)  is  the  solute  mass  balance  in  terms  of  the  dissolved  mass 
fraction  (solute  concentration),  C.  The  time  derivative  expresses  the  total 
changes  in  solute  mass  with  time  in  a  volume  due  to  the  mechanisms  represented 
by  terms  on  the  right  side  of  the  equation.  The  term  involving  f(x,y,t)  repre¬ 
sents  the  loss  of  solute  mass  from  solution  which  becomes  fixed  on  the  solid 
grain  surfaces  as  adsorbate.  The  adsorbate  source,  f,  may,  in  general,  depend 

on  solute  concentration,  C,  adsorbate  concentration,  C  ,  and  the  rate  of  change 

8 

of  these  concentrations,  depending  on  either  an  equilibrium  adsorption  isotherm 
or  on  non-equilibrium  adsorption  processes.  SUTRA  algorithms  are  structured  to 
directly  accept  non-equilibrium  sorption  models  as  an  addition  to  the  code. 

However,  the  current  version  of  SUTRA  assumes  equilibrium  sorption  as  shown  in 
the  following  section,  "Adsorption  and  production/decay  processes." 

The  term  involving  fluid  velocity,  v,  represents  average  advection  of  sol¬ 
ute  mass  into  or  out  of  the  local  volume.  The  term  involving  molecular  diffusi- 
vity  of  solute,  D  ,  and  dispersivity ,  D,  expresses  the  contribution  of  solute 

ID  * 

diffusion  and  dispersion  to  the  local  changes  in  solute  mass.  The  diffusion 
contribution  is  based  on  a  true  physical  process  often  negligible  at  the  field 


* 

C  (x,y,t ) 

C  ( x ,  y ,  t ) 
8 

Ps 

Tg( x,y,t) 


scale.  The  dispersion  contribution  is  an  approximation  of  the  effect  of  solute 


advection  and  mixing  in  irregular  flows  which  are  not  accounted  for  by  solute 
advected  by  the  average  velocity.  The  solute  mass  source  term  involving  I  (x,v,t), 
the  solute  mass  production  rate  per  unit  mass  of  fluid,  expresses  the  contribution 
to  dissolved  species  mass  of  chemical,  biological  or  radioactive  reactions  in 
the  fluid.  The  last  term  accounts  for  dissolved  species  mass  added  by  a  fluid 
source  with  concentration,  C*. 

Equation  (2.10)  is  the  balance  of  mass  which  has  been  adsorbed  bv  solid 
grain  surfaces  in  terms  of  species  concentration  on  the  solid  (specific  adsorbate 
concent  at  ion ) ,  C  .  The  change  in  total  adsorbate  mass  is  expressed  bv  the  time 
derivative  term.  It  may  increase  due  to  species  leaving  solution  as  expressed  bv 
adsorbate  source  term,  f.  The  adsorbed  mass  may  also  change  due  to  a  production  of 
adsorbate  mass  (per  unit  solid  matrix  mass),  T  bv  radioactive  or  chemical  pro¬ 
cesses  within  the  adsorbate.  Note  that  mass  becomes  immobile  once  adsorbed,  and 
is  affected  orilv  bv  possible  desorption  or  chemical  and  biological  processes. 

The  total  mass  of  a  species  in  a  volume  is  given  by  the  sum  of  so  it®  mass 
and  adsorbate  mass.  A  balance  of  the  total  mass  of  a  species  is  obtained  bv 
addition  of  (2.30)  and  (2.29).  The  general  form  of  the  total  species  mass 
balance  used  in  SUTRA  is  this: 

d ( r S  pC)  ai < 1-e )p  C  I 


<k 


+ 


s  s 
at 


=  -  v • ( f  S  pvC  ) 
w  — 


+  V-lfS  p(D  1  +  D) ■ VC )  +  tS  p[  +  (l-t)p  r  +  Q  c* 


(2.31) 


Equation  (2.31)  is  the  basis  for  SUTRA  solute  transport  simulation.  In  cases 

of  solute  transport  where  adsorption  does  not  occur  (C  *0),  the  adsorbate 

8 

source  term,  f,  simply  has  the  value  zero  (f  ■  0),  and  the  term9  that  stem  from 
equation  (2.30)  are  ignored.  Further  discussion  of  solute  and  adsorbate  mass 
balances  may  be  found  in  Bear  (1979). 


Adsorption  and  production/decay  processes 

The  volumetric  adsorbate  source,  f,  of  (2.29)  and  (2.30)  may  be  expressed 

in  the  terms  of  a  specific  sorption  rate,  f  ,  as: 

s 


f  -  (l-e)p  f 
s  s 


(2.32a) 


f  (x,y,t)  {M  /M  -si  specific  solute  mass  adsorption  rate 

s  s  (j 

(per  unit  mass  solid  matrix) 

A  particular  non-equilibrium  (kinetic)  model  of  sorption  is  obtained  by  de¬ 
fining  the  functional  dependence  of  the  sorption  rate,  f^,  on  other  parameters 
of  the  system.  For  example,  for  a  linear  reversible  non-equilibrium  sorption 

model,  the  expression  is:  f  *  m  (C  -  m„C  ),  where  m,  and  m.  are  sorption  para 

8  1  2  s  1  2 

meters.  This  particular  model  and  a  number  of  other  non-equilibrium  sorption 

models  are  accommodated  by  a  general  expression  for  f  ,  as  follows: 

s 

dC 

f  *  tc .  —  +  r  C  +  k  (2.32b) 

s  1  St  2  3 

where:  r  •  ir  (C,C  ),  r  -  r  (C,C  ),  r  ■  r„(C,C  ). 

1  Is22s33s 

r  (C,C  )  (M  /Ml  first  general  sorption  coefficient 

iso 

r„(C,C  )  (M  /M  ’s]  second  general  sorption  coefficient 

i  s  u 


r_(C,C  ) 


IM  /Mn-s| 


third  general  sorption  coefficient 


Through  a  suitable  definition  of  the  general  coefficients,  r  ( C,Cg),  a  number 
of  non-equilibrium  sorption  models  may  be  obtained.  For  example,  the  linear 
reversible  non-equilibrium  model  mentioned  above  requires  the  definitions: 
rj  =  0,  =  nij,  and  =  -m^m?Cs.  The  general  coefficients  t^,  r?,  and  are 

included  in  the  SUTRA  code  to  provide  generality  for  possible  inclusion  of  such 
non-equilibrium  (kinetic)  sorption  models. 

The  equilibrium  sorption  models  are  based  on  definition  of  the  general 
coefficients  through  the  following  relation: 


(2.33) 


Only  general  sorption  coefficient,  need  be  defined  based  on  various  equili¬ 
brium  sorption  isotherms  as  shown  in  the  following.  The  other  coefficients  are 
set  to  zero,  r  2  m  r  $  m 

The  linear  equilibrium  sorption  model  is  based  on  the  linear  sorption 


isotherm  assuming  constant  fluid  density: 


c x, 0  )C 

1  o 


,  .  3C 

(xipo)a? 


(2.34a) 


(2.34b) 


where : 


and  p  is  the  fluid  base  density 
o 


linear  distribution  coefficient 


)r  linear  sorption,  general  coefficient,  r^,  takes  on  the  definition: 


( 2 . 34c  ) 
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The  Freundlich  equilibrium  sorption  model  is  based  on  the  following 


isotherm  which  assumes  a  constant  fluid  density,  p  : 


C  -  X, ( P  C) 
s  1  o 


(k) 


(2.35a) 


3Ca  /X 


at 


•  (xX’oC) 


fi*)  .  K 


(2.35b) 


o  3t 


where : 


[*%] 


a  Freundlich  distribution  coefficient 


(1) 


Freundlich  coefficient 


when  X2  “  1 •  the  Freundlich  isotherm  is  equivalent  to  the  linear  isotherm. 


For  Freundlich  sorption,  then,  the  general  coefficient,  ir ^ ,  takes  the 


definition : 


x  (r)  (t1) 

J  VX2'  «  X2 


Po  C 


(2.35c) 


The  Langmuir  equilibrium  sorption  model  is  based  on  the  following  isotherm 


which  assumes  a  constant  fluid  density,  p  : 

o 


Xl<p.c> 


1  *  Vo0’ 


(2.36a) 


3C 


X1  Po 


ac 


at 


(i  +  x.p  c ) 2  at 


(2.36b) 


where : 


a  Langmuir  distribution  coefficient 

X  [l^/M  |  Langmuir  coefficient 

For  verv  low  solute  concentrations,  C,  Langmuir  sorption  becomes  linear  sorp¬ 
tion  witli  linear  distribution  coefficient  Xj*  For  very  high  solute  concentra¬ 
tions,  C,  the  concentration  of  adsorbate  mass,  C  ,  approaches  an  upper 
limit  equal  to  1  \  .  The  general  Sl'TRA  coefficient,  is  defined  for 

Langmuir  sorption  as: 


X  ,  P 
1  o 


(1  +  x  0P  O' 
1  o 


(2.36c) 


The  production  terms  for  solute,  T  ,  and  adsorbate,  F  ,  allow  for 

w  s 

first-order  mass  production  (or  decay)  such  as  linear  BOD  (biochemical  oxygen 
demand)  or  radioactive  decav,  biological  or  chemical  production,  and  zero-order 
mass  production  (or  decay). 

F  =  r"  c  +  yW  (2.37a) 

w  1  o 

F  =  y?  c  +  ys  (2.37b) 
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first  order  mass  production  rate  of  solute 

zero-order  solute  mass  production  rate 

first-order  mass  production  rate  of 
adsorbate 

zero-order  adsorbate  mass  production 
ra  t  e 


2.5  Description  of  Dispersion 

Pseudo- 1  ran sport  mechanism 

Dispersion  is  a  pseudo-transport  process  representing  mixing  of  fluids 
which  actually  travel  through  the  solid  matrix  at  velocities  different  from  the 
average  velocity  in  two  space  dimensions,  v,  calculated  from  Darcy's  law,  (2.19). 
Dispersion  is  a  pseudo-flux  in  that  it  only  represents  deviations  from  an 
average  advect ive  flux  of  energy  or  solute  mass  and  as  such  does  not  repre¬ 
sent  a  true  mechanism  of  transport.  Should  it  be  possible  to  represent  the 
true,  complex,  non-homogeneous  velocity  field  in,  for  example,  in  the  layers  of 
an  irregularly  bedded  field  system,  then  the  dispersion  process  need  not  be 
invoked  to  describe  the  transport,  as  the  local  variations  in  advection  would 
provide  the  true  picture  of  the  transport  taking  place.  However,  as  available 
data  almost  never  allows  for  such  a  detailed  velocity  description,  an  approximate 
description,  which  helps  to  account  for  observed  temperatures  or  concentrations 
different  from  that  expected  based  on  the  average  fluid  advection,  must  be 
employed . 

Current  research  trends  are  to  develop  dispersion  models  for  various 
hydrogeological  conditions,  and  SUTRA  may  be  updated  to  include  these  new  re¬ 
sults  as  they  become  available.  Currently,  SUTRA  dispersion  is  based  on  a  new 
generalization  for  anisotropic  media  of  the  standard  description  for  dispersion 
in  isotropic  homogeneous  porous  media.  The  standard  description  is,  in  fact, 
the  only  model  available  today  for  practical  simulation.  Because  any  incon¬ 
sistencies  which  may  arise  in  applying  this  dispersion  model  to  particular 


hi 


field  situation  often  would  not  be  apparent  due  to  the  poor  quality  or  small 
amount  of  measured  data,  the  user  is  warned  to  exercise  good  judgement  in 
interpreting  results  when  large  amounts  of  so-called  dispersion  are  required 
to  explain  the  field  measurements. 

In  any  case,  the  user  is  advised  to  consult  up-to-date  literature  on  field-scale 
dispersion,  before  employing  this  transport  model. 


D  -  (d  v2  +  d  v2) 

xx  \  2/  Lx  iv 

'v  ' 

D  -  <d  v2  +  d  v2) 

yv  \v2 /  T  x  L  v 

and  the  off-diagonal  elements  are: 

Dif  (^)  <dL  '  V  (viV 

i*  j ,  i“x ,  v 


(2.39a) 

(2.39b) 

(2.39c) 
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v(  x ,  y ,  t ) 

[  L  /  s  ) 

magnitude  of  velocity  v 

vx(x,y,t) 

(L/s  j 

magnitude  of  x-component  of  v 

v  (  x ,  y ,  t ) 

(L/s) 

magnitude  of  y-component  of  v 

dL(x,y,t) 

(L2/s) 

longitudinal  dispersion  coefficient 

a 

H 

X 

rt 

[L2/s] 

transverse  dispersion  coefficient 

The  terms 

dL  and  dT  lL2/s) 

are  called  longitudinal  and  transverse 

dispersion  coefficients,  respectively.  These  terms  are  analogous  to  typical 
diffusion  coefficients.  What  is  special,  is  that  these  are  directional  in 
nature.  The  term,  d^,  acts  as  a  diffusion  coefficient  which  causes  dispersion 
forward  and  backward  along  the  local  direction  of  fluid  flow,  and  is  called  the 
longitudinal  dispersion  coefficient.  The  term,  d^.,  acts  as  a  diffusion  coeffi¬ 
cient  causing  dispersion  evenly  in  the  directions  perpendicular  to  the  local 
flow  direction,  and  is  called  the  transverse  dispersion  coefficient.  Thus,  if 
d^  and  dT  were  of  equal  value,  a  circular  disk  of  tracer  released  (in  the  x-y 
plane)  in  ground  water  flowing,  on  the  average  uniformly  and  unidirectionally , 
would  disperse  in  a  perfectly  symmetric  circular  manner  as  it  moved  downstream. 
However,  if  d^  >  d^  then  the  tracer  would  disperse  in  an  elliptical  manner  with 
the  long  axis  oriented  in  the  flow  direction,  as  it  moved  downstream. 

The  size  of  the  dispersion  coefficients  are,  in  this  model,  for  dispersion 
in  isotropic  permeability  systems,  dependent  upon  the  absolute  local  magnitude 
of  average  velocity  in  a  flowing  system  (Bear,  1979): 


dL  -  «lv 

(2.40a) 

dy  *  OtyV 

(2.40b) 

°>L<  x,y ) 

(Lj 

longitudinal  dispersivity  of  solid 
matrix 

«T(  x  ,  v ) 

1  L  | 

transverse  dispersivity  of  solid 
matrix 
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When  the  isotropic-media  dispersion  model  is  applied  to  a  particular  field  situ¬ 
ation  where  aquifer  inhomogeneities  are  much  smaller  than  the  field  transport 
scale,  then  dispersivities  a and  may  be  considered  to  be  fundamental  trans¬ 
port  properties  of  the  system  just  as,  for  example,  permeability  is  a  fundamen¬ 
tal  property  for  flow  through  porous  media.  In  cases  where  inhomogeneities  are 
large  or  scales  of  transport  vary,  dispersivities  may  possibly  not  be  repre- 
sentive  of  a  fundamental  system  property.  In  this  case,  dispersion  effects 
must  be  interpreted  with  care,  because  dispersivitv  values  are  the  only  means 
available  to  represent  the  dispersive  characteristics  of  a  given  system  to  be 
simulated. 

Anisot ropic-medi a  di spersion  model 

In  a  system  with  anisotropic  permeability  or  anisotropic  spatial  distribu¬ 
tion  of  inhomogeneities  in  aquifer  materials,  dispersivities  may  not  have  the 
same  values  for  flows  in  all  directions.  In  a  case  such  as  a  layered  aquifer, 
longitudinal  dlspersivity  would  clearly  not  have  the  same  value  for  flows  parallel 
to  layers  and  perpendicular  to  layers.  The  isotropic-media  dispersion  model, 
described  in  the  previous  section,  does  not  account  for  such  variability  as  ot^ 
is  isotropic  (direction-independent).  Transverse  dispersivity  would  also  tend 
to  be  dependent  on  the  flow-direction,  but  because  it  typically  is  only  a  small 
fraction  of  longitudinal  dispersivity,  especially  in  anisotropic  media  (Gelhar 
and  Axness,  1981),  its  variability  is  ignored  here.  This  does  not  imply  that 
transverse  dispersion  is  an  unimportant  process,  but  the  approximation  is  made 
because  accurate  simulation  ot  low  transverse  dispersion  is  already  limited,  due 
to  the  requirement  of  a  fine  mesh  for  accurate  representation  of  the  process. 

The  effect  of  any  di rect ion-dependence  of  transverse  aispersivity  would  be 
obscured  bv  the  numerical  d i sc  ret i zat i on  errors  in  a  typical  mesh. 


An  ad-hoc  model  of  flow-direction-dependent  longitudinal  dispersion  is 

postulated.  In  this  model,  longitudinal  dispersivity  is  assumed  to  have  two 

principal  directions  (in  two  space  dimensions)  aligned  with  principal  directions 

of  permeability,  x  and  x  .  T're  principal  values  of  longitudinal  dispersivity, 

pm 

are  a  and  cty  in  these  principal  directions  (see  Figure  2.4).  Note  that 

the  subscripts,  Lmax  and  I.min,  refer  only  to  the  maximum  and  minimum  permeability 
directions,  and  are  not  intended  to  imply  the  relation  in  magnitude  of  “^max 
and  the  principal  values  of  longitudinal  dispersivity. 

Tf  is  the  dispersive  flux  of  solute  (or  energy)  along  a  stream  line  of 
fluid  flow,  then 


(  2.41  ) 


longitudinal  dispersivity  along  a 
st  reaml ine 


and  r  represents  either  r one ent rat i on  or  temperature,  and  s  is  distance 

measured  along  a  streamline.  The  dispersive  flux  components  in  the  principal 

permeability  directions  x  and  x  are: 
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(2.42a) 

(2.42b) 


where : 


a.  (  x , v  ) 

Lmax 

1 1- 1 

Longitudinal  dispersivity  in  the  maximum 

permeability  direction,  x  . 

P 

°I.min(X’V) 

IM 

Longitudinal  dispersivity  in  the  minimum 

permeability  direction,  x  . 

tn 

0,  <  x,v,t ) 

kv 


Angle  from  maximum  permeability  direction, 
Xp,  to  local  flow  direction,  (y/|v|) 


SUTRA  is  completely  divided  up  into  a  single  layer  of  contiguous  blocks.  These 
blocks  are  called  'finite  elements.'  The  subdivision  is  not  done  simply  in 
a  manner  which  creates  one  block  (element)  for  each  portion  of  the  aquifer 
system  which  has  unique  hydrogeological  characteristics.  Each  hydrogeologic 
unit  is  in  fact  divided  into  many  elements  giving  the  subdivided  aquifer  region 
the  appearance  of  a  fine  nej^  or  mesh .  Thus,  subdivision  of  the  aquifer  region 
to  be  simulated  into  blocks  is  referred  to  as  'creating  the  finite-element  mesh 
(or  finite-element  net). 

The  basic  building  block  of  a  finite-element  mesh  is  a  finite  element.  The 
type  of  element  employed  bv  SUTRA  for  two-dimensional  simulation  is  a  quadrilateral 
which  has  a  finite  thickness  in  the  third  space  dimension.  This  type  of  a  quad¬ 
rilateral  element  and  a  typical  two-dimensional  mesh  is  shown  in  Figure  3.1. 

Ail  twelve  edges  of  the  two-dimensional  quadrilateral  element  are  perfectly 
straight.  Four  of  these  edges  are  parallel  to  the  2-coordinate  direction. 

The  x-v  plane  (which  contains  the  two  coordinate  directions  of  interest)  bisects 
each  of  the  edges  parallel  to  z,  so  that  the  top  and  bottom  surfaces  of  the 
element  are  mirror  images  of  each  other  reflected  about  the  central  x-v  plane  in 
the  element.  The  mid-point  of  each  z-edge  (the  point  where  the  x-v  plane 
intersects)  is  referred  to  as  a  nodal  point  (or  node).  Thus,  the  element  has  a 
three-dimensional  shape,  but  always  has  only  exactly  four  nodes,  each  of  which 
in  fact,  represents  the  entire  z-edge  on  which  it  is  located.  The  nodes  mark  the 
fact  that,  in  this  type  of  element,  some  aquifer  parameters  may  be  assigned  a 
different  value  at  each  z-edge  of  the  element.  The  lack  of  nodes  outside  of  the 
x-v  plane  is  what  makes  this  element  two-dimensional;  while  some  aquifer  para¬ 
meters  may  vary  iri  value  from  node  to  node  (i.e.  from  z-edge  to  z-edge),  no 
parameters  may  he  assigned  varying  values  in  the  z-di rec t ion . 


head,  h  *  hp  +  ELEVATION,  where  pressure  head,  hp  *  p/(p|g|).  For  clarity, 
hydraulic  conductivity  is  assumed  to  be  isotropic  in  this  example.  While  (3.1) 
may  be  considered  a  fully  three-dimensional  mass  balance  equation,  it  is  assumed 
that  flow  takes  place  only  areally  in  a  water-table  aquifer  with  a  fixed  imperme¬ 
able  base  (at  z-position,  BASE(x,y)),  and  a  moveable  free  surface  (at  z-position, 
h(x,y,t)).  The  z-direction  is  oriented  vertically  upward  and  the  fluid  is  assumed 
to  be  in  vertical  hydrostatic  equilibrium  at  any  (x,y)  position  (no  vertical  flow). 
Aquifer  thickness,  B(x,y,t)  (L),  is  measured  as  the  distance  along  z  from  the  free 
surface  to  the  aquifer  base,  and  may  change  with  time.  Aquifer  transmissivity, 
7(x,y,t),  is  given  by: 


T  «  KB  ■  K(h 

-  BASE) 

(3.2) 

7Tx,y,t) 

l L2/s ) 

aquifer  transmissivity 

B(x,y,t) 

f  L) 

aquifer  thickness 

BASE( x,y) 

[Lj 

elevation  of  aquifer  base 

The  above  assumption,  in  effect,  makes  (3.1)  a  two-dimensional  mass  balance 
equation  which  is  applied  to  a  finite  thickness  aquifer.  The  two-dimenBional 
form  of  (3.1)  describing  an  areal  fluid  mass  balance  for  water-table  aquifers 
in  terms  of  a  head-dependent  transmissivity  arises  during  the  basic  numerical 
analysis  of  (3.1)  in  section  3.3,  "Integration  of  Governing  Equation  in  Space." 

3.1  Spatial  Discretization  by  Finite  Elements 

Although  SUTRA  is  a  two-dimensional  model,  the  region  of  space  in  which 
flow  and  transport  is  to  be  simulated  may  be  defined  in  three  space  dimensions. 


The  three-dimensional  bounded  volume  of  an  aquifer  which  is  to  be  simulated  by 


Chapter  4,  "Numerical  Methods,"  to  the  SUTRA  fluid  mass  balance  and  unified 
energy-species  mass  balance. 

The  water-table  aquifer  fluid  mass  balance  equation  is  useful  for  dem¬ 
onstration  of  basic  numerical  methods  employed  on  SUTRA  governing  equations, 
because  it  displays  some  of  the  salient  aspects  of  the  SUTRA  equations:  a  time 
derivative,  a  non-linear  term  involving  space-derivatives,  and  a  source  term. 
The  simplified  fluid  mass  balance  equation  is  as  follows: 

S  ~  -  V-(KVh)  -  (3.1) 

O  at  **“  — 

where 

Q*  *  (Q  / P) 

P 

and 


So  ( x ,  y ) 

IL-1| 

specific  storativity 

h(x,y,t) 

ILj 

hydraulic  head  (sum  of  pressure 
head  and  elevation  head) 

K(x,y) 

IL/s] 

hydraulic  conductivity  (assumed 
this  example  to  be  isotropic) 

for 

Q*(  x ,  y ) 

Is'*) 

volumetric  fluid  source  (volume  fluid 
injected  per  time  /  volume  aquifer) 

(assumed  constant  for  this  example) 

Qp(x,y)  lM/(L^‘s)J  fluid  mass  source  (mass  fluid  injected 

per  time  /  volume  aquifer)  (assumed  con¬ 
stant  for  this  example) 

P  IM/L^|  fluid  density  (assumed  constant  for 

this  example) 

This  equation,  (3.1),  is  obtained  from  the  SUTRA  fluid  mass  balance,  (2.24), 
by  assuming  saturated  conditions,  constant  concentration  and  temperature,  con¬ 
stant  fluid  density,  and  using  the  definition  of  hydraulic  conductivity, 

K  *  (kp|g|)/p,  where  |g|  is  the  acceleration  of  gravity,  and  of  hydraulic 
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Fundamentals  of  Numerical  Algorithms 


SUTRA  methodology  is  complex  because:  (])  density-dependent  flow  and 
transport  requires  two  interconnected  simulation  models,  (2)  fluid  properties 
are  dependent  on  local  values  of  temperature  or  concentration,  (3)  geometry  of 
a  field  area  and  distributions  of  hydrogeologic  parameters  may  be  complex,  and 
(4)  hvdrologic  stresses  on  the  svstem  may  be  distributed  in  space  and  change 
with  time.  Furthermore,  a  tremendous  amount  of  data  must  be  evaluated  by  SUTRA 
with  precision.  This  requires  great  computational  effort,  and  considerable 
numerical  intricacy  is  required  to  minimize  this  effort.  The  mathematically 
elegant  finite-element  and  integrated-finite-difference  hybrid  method  employed 
bv  SUTRA  allows  great  numerical  flexibility  in  describing  processes  and  char¬ 
acteristics  of  flow  and  transport  in  hydrologic  field  systems.  Unlike  simu¬ 
lation  models  based  purely  on  the  method  of  finite  differences,  however,  the 
numerical  aspects  of  which  allow  straight-forward  interpretation  at  an  intuitive 
level,  some  finite-element  aspects  of  SUTRA  methodology  require  interpretation 
at  a  less  physical  level  and  from  a  more  mathematical  point  of  view. 

The  following  description  of  SUTRA  numerical  methods  uses  a  simplified, 
constant -density  water-table  aquifer  case  as  an  illustrative  example.  While 
precise  mat hemat i ra 1 1 v ,  this  example  is  not  used  to  demonstrate  an  actual 
application  of  SUTRA,  as  SUTRA  does  not,  in  fact,  simulate  a  moving  water 
table.  The  example  is  onlv  used  as  a  device  through  which  to  explain  the 
theory  and  use  of  the  primary  numerical  methods  employed  in  SUTRA  and  the 
water  table  is  invoked  to  allow  discussion  of  a  simple  non-1 inear i tv .  The 
basic  methods,  which  are  onlv  demonstrated  here,  are  applied  in  detail  in 
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(2.52) 


where : 


for  energy  transport 
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U  *  T ,  U  5  T 
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(2.52a) 


for  solute  transport 


U=C,  U  e  C  ,  U*C  ,  o  *  D  ,  o=0.  c  *  r,  ,  c  *  1  (2.52b) 

ss  wms  slw 

where  Cs  is  defined  by  (2.34a),  2.35a)  or  (2.36a),  and  is 
defined  by  (2.34c),  (2.35c)  or  (2.36c).  depending  on  the  isotherm. 


The  fluid-mass-conservative  form  of  the  unified  energy-species  mass 
balance,  (2.52),  is  exactly  that  which  is  implemented  in  SUTRA. 
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where : 


for  energy  transport 
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(2.51a) 
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for  solute  t ranspor t 


ifr  * ic 

U  a  C,  UaC,U8C.a«D,oaO  csl  (2.51b) 

s  s  w  m  s  w 

where  Cs  is  defined  by  (2.34a),  (2.35a)  or  (2.36a),  depending  on 

isotherm. 

It  is  assumed  in  equation  (2.51)  that  cw  and  cs  are  not  time-dependent. 

For  numerical  simulation,  this  equation  may  be  termed  a  'fluid-mass- 
conservative'  form  of  the  energy  or  species  mass  balance.  When  approximated 
numerically,  the  unified  balance  in  the  original  form,  (2.47),  would  contain 
approximation  errors  in  both  the  fluid  mass  balance  contributions  (based  on 
pressure  and  saturation  changes)  and  the  temperature  or  concentration  change 
contribution.  However,  in  the  revised  form,  equation  (2.51),  the  complete  fluid 
mass  balance  contribution  has  already  been  analytically  accounted  for  before 
any  numerical  approximation  takes  place.  Thus,  the  total  approximation  error 
for  the  unified  balance,  (2.51),  is  significantly  less  as  it  is  due  to  the  temp¬ 
erature  or  concentration  change  contribution  only. 

The  unified  energy-species  mass  balance  is  brought  to  its  final  form  by 
noticing  that  the  form  of  the  term,  3Us/3t,  for  energy  transport,  is  the  same 
as  that  for  solute  transport  when  using  the  equilibrium  sorption  relation 
(2.33),  and  that  the  form  of  the  energy  production  of  terms  is  similar  to  that 
of  relations  (2.37a)  and  (2.37b)  for  the  mass  production  process: 
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Before  substituting  (2.48)  for  t.he  duplicate  terms  in  (2.47),  the  search 


for  redundant  terms  mav  be  extended  to  a  balance  of  species  mass  or  energy 
stored  in  the  soLid  matrix  rather  than  in  the  fluid.  A  simple  mass  balance 
for  the  soiid  matrix  is: 


f  < I-c  >p 

l.v 

■  f  <  1  —  c  )  p  v  1  =  0 

(2.49) 

L  s 

J 

L  s-s  J 

v  ( L/s 1  net  solid  matrix  velocity 

— s 

Due  to  the  assumption  that  the  net  solid  matrix  velocity,  ys,  is  negligable, 
the  associated  term  of  (2.49)  is  dropped.  The  contribution  of  this  simple  solid 
matrix  mass  balance  to  the  unified  solute-energy  balance  mav  again  be  obtained 
bv  taking  the  product  of  (2.49)  with  Ua: 

(U  )  f  (  l-c  )p  I  =*  0  (2.50) 

s  3 1  [  s  J 

A  comparison  reveals  that  this  term  also  appears  in  (2.47). 

The  redundant  information  in  the  unified  energy-solute  balance  which  keeps 
track  of  both  solid  matrix  and  fluid  mass  balance  contributions  mav  be  directly 
removed  from  (2.47)  by  subtracting  (2.48)  and  (2.50).  The  result  is: 
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(2.51) 


Fluld-mass-conservatlve  energy-solute  balance 


A  further  consideration  is  required  before  obtaining  the  form  of  the  uni¬ 
fied  energy / solute  balance  as  implemented  in  SUTRA.  The  amount  of  energy  or 
solute  per  unit  combined  matrix-fluid  volume  may  change  either  due  to  a  change 
in  the  total  fluid  mass  in  the  volume  even  when  concentration  and  temperature 
remain  constant  (see  relation  (2.10)).  Such  a  change  in  fluid  mass  may  be 
caused  by  changes  in  fluid  saturation,  or  by  pressure  changes  affecting  com¬ 
pressive  storage. 

The  energy  and  solute  balances  as  well  as  their  unified  form,  (2.47),  track 
both  types  of  contributions  to  changes  in  total  stored  energy  or  solute  mass. 
However,  the  fluid  saturation  and  pressure  change  contribution  to  energy  and 
solute  balances  are  already  implicitly  accounted  for  by  the  fluid  mass  balance. 

The  fluid  mass  balance  contribution  to  solute  and  energy  balances  is  ex¬ 
pressed  by  the  product  of  the  fluid  mass  balance,  equation  (2.22)  (which  tracks 
changes  in  fluid  mass  per  unit  volume),  with  cwU  (which  represents  either  energy 
or  solute  mass  per  unit  fluid  mass).  Note  that  cw»l  for  solute  transport.  This 
product  tracks  energy  or  solute  mass  changes  per  unit  volume  due  to  fluid  mass 
changes  per  unit  volume: 
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(2.48) 


where  the  solute  mass  source,  T,  is  neglected.  Comparison  of  (2.48)  with  (2.47) 
will  reveal  that  the  terms  on  the  left  of  (2.48)  also  appear  in  the  unified 


balance  equation. 


Thus,  the  balances  of  energy  per  unit  volume,  (2.28),  and  total  species 
mass  per  unit  volume,  (2.31),  may  be  expressed  in  a  single  unified  balance  in 
terms  of  a  variable,  U(x,y,t),  which  may  either  represent  T(x,y,t)  or  C(x,y,t), 
as  follows: 


where : 
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for  solute  transport 
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where  Cs  is  defined  by  (2.34a),  (2.35a)  or  (2.36a),  depending  on  the 
isotherm. 


By  simple  redefinition  according  to  (2.47a)  or  (2.47b),  equation  (2.41)  directly 
becomes  the  energy  or  species  mass  balance.  This  redefinition  is  automatically 
carried  out  by  SUTRA  as  a  result  of  whether  the  user  specifies  energy  or  solute 


transport  simulation. 


2.6  Unified  Description  of  Energy  and  Solute  Transport 


Unified  energy-solute  balance 

The  saturated-unsaturated  ground-water  energy  balance  (2.28)  is  simply  an 
accounting  of  energy  fluxes,  sources  and  sinks  which  keeps  track  of  how  the 
energy  per  unit  volume  of  solid  matrix  plus  fluid,  [eSwpcw  +  (l-c)pacs)T, 
changes  with  time  at  each  point  in  space.  The  saturated-unsaturated  ground- 
water  balance  of  solute  plus  adsorbate  mass,  (2.31),  is  similarly  an  accounting 
of  solute  and  adsorbate  fluxes,  sources  and  sinks,  which  keeps  track  of  how  the 
species  mass  (solute  plus  adsorbate  mass)  per  unit  volume  of  solid  matrix  plus 
fluid,  (eSwpC  +  (l-e)p8Cs),  changes  with  time  at  each  point  in  space.  Both 
balances,  therefore,  track  a  particular  quantity  per  unit  volume  of  solid  matrix 
plus  fluid. 

The  fluxes  of  energy  and  solute  mass  in  solution,  moreover,  are  caused  by 
similar  mechanisms.  Both  quantities  undergo  advection  based  on  average  flow 
velocity,  v.  Both  quantities  undergo  dispersion.  Both  quantities  undergo 
diffusion;  the  diffusive  solute  mass  flux  is  caused  by  molecular  or  ionic  dif¬ 
fusion  within  the  fluid,  while  the  diffusive  energy  flux  occurs  by  thermal  con¬ 
duction  through  both  fluid  and  solid.  Fluid  sources  and  sinks  give  rise  to 
similar  sources  and  sinks  of  energy  and  solute  mass.  Energy  and  species  mass 
may  both  be  produced  by  zero-order  processes,  wherein  energy  may  be  produced  by 
an  endothermic  reaction  and  solute  may  be  produced,  for  example,  by  a  biological 
process.  The  linear  adsorption  process  affecting  solutes  is  similar  to  the 
storage  of  energy  in  solid  portion  of  an  aquifer.  Only  the  non-linear  sorption 
processes  and  first-order  production  of  solute  and  adsorbate,  have  no  readily 
apparent  analogy  in  terms  of  energy. 
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tributions  of  the  approximate  dispersive  process.  Given  a  better-defined 
velocity  field,  and  in  the  absence  of  other  data,  dispersivity  should  then  be 
chosen  based  on  the  largest  postulated  inhomogeneities  met  along  a  given  average 
stream  tube.  The  size  and  distribution  of  inhomogeneities  not  explicitly  taken 
into  account  by  the  average  flow  field  may  be  postulated  based  on  the  best 
available  knowl edge  of  local  geology. 

Transverse  dispersivitv,  ocj-,  is  typically  even  less  well  known  for  field 
problems  than  longitudinal  dispersivity.  Values  of  cip  used  in  simulation  are 
typically  between  one  tenth  and  one  third  of  dp.  In  systems  with  anisotropic 
permeability,  may  be  less  than  one  hundredth  of  dp  for  flows  along  the 
maximum  permeability  direction  (Gelhar  and  Axness,  1983).  Should  simulated 
transport  in  a  particular  situation  be  sensitive  to  the  value  of  transverse 
dispersivity,  further  data  collection  is  necessary  and  the  transport  model  must 
be  interpreted  with  great  care. 

The  ad-hoc  model  for  longitudinal  dispersion  in  anisotropic  media  presented 
in  the  previous  section  allows  for  simulation  experiments  with  two  principal 
longitudinal  di spersivi t ies  which  mav  be  of  special  interest  in  systems  with 
well-defined  anisotropy  values.  Depending  on  the  particular  geometry  of  layers 
or  inhomogeneities  causing  the  permeability  anisotropy,  the  longitudinal  disper- 
sivitv  in  the  minimum  permeability  direction,  OLmin,  may  be  either  greater  or 
smaller  than  that  in  the  maximum  permeability  direction  dpmax.  However,  use 
of  the  anisotropic-media  dispersion  model  is  advised  only  when  clearly  required 
bv  field  data,  and  the  additional  longitudinal  dispersion  parameter  is  not 
intended  for  general  application  without  evaluation  of  its  applicability  in  a 


particular  case. 


This  form  of  longitudinal  dispersivicv  dependence  on  direction  of  flow  relative 
to  the  principal  pormeabi Li cy  directions  is  similar  to  that  obtained  for  a 
l ransvcrselv  isotropic  medium  in  a  stochastic  analysis  of  macro-dispersion  by 
Gel  bar  and  Axness  (  ll>3'3>. 

Guidelines  tor  applying  dispersion  model 

Some  informal  guidelines  mav  be  given  core  erning  values  of  di spersivit ies 
when  other  data  are  not  available.  Longitudinal  d i sper s i v i t ies  may  be  consi¬ 
dered  t '■  be  on  the  order  of  the  s  tme  s  i  ?.«>  as  either  t  h«  largest  h  vdrogeolog  i  c 
or  tlov>;  inhomogeneities  along  the  transport  reach  or  th>*  distance  between 
inhomogeneities,  whichever  is  the  greater  v  i  i  u** .  for  transport  in  pure  homo¬ 
geneous  sand,  longitudinal  di spersivit  y  is  on  the  order  of  grain  siz  This 
is  the  typo  of  situation  where  r he  i sor rop i e-med i a  dispersion  model  .ell  de¬ 
scribes  observed  transport  behavior.  in  the  case  of  a  sandy  aquifer  containing 
well-distributed  inclusions  of  less-permeable  material,  the  longitudinal  dis- 
persivitv  required  to  correct  an  average  adveciive  transport  which  has  passed 
by  many  of  the  inclusions  would  be  of  the  order  on  the  larger  of  either  inclu¬ 
sion  size  or  distance  between  inclusions. 

Should  the  d i sper si v it y ,  estimated  on  the  basis  of  the  size  in  homogenei¬ 
ties  or  distance  between  them,  he  greater  than  about  one  tenth  of  the  longest 
transport  roach,  then  rhe  meaningful  use  of  a  const ant-dispersivi ty  dispersion 
model  must  tie  questioned.  !  n  such  a  '-jsi;,  t  tie  ideal  action  to  take  would  be  to 
more  >»vplicjt  |v  define  the  i  i  *  *  1  d  distribution  of  velocity  by  taking  into  account 
r  h»-  a<  r  uai  geomot  rv  <»♦  inhomogenei  t  i os  .  This  would  ''ott»ctiv  account  tor  most 
<>f  t  h*1  »  r  an  sper  f  taking  plan*,  at  advert  ivo  in  nature,  with  much  smaller  con- 


Because  U  varies  with  x  and  y,  U  *  U(x,y,t): 
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(2.43a) 

(2.43b) 

( 2 . 44a) 

(2.44b) 


which  is  used  by  SUTRA  to  compute  for  the  anisotropic-media  dispersion  model. 

Note  that  if  a,  ■  a,  .  ,  then  the  isotronic  dispersion-media  model  is  obtained. 

Lmax  Lmin 
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Within  a  two-dimensional  finite-element  mesh  there  is  only  a  single  layer 
of  elements,  the  nodes  of  which  lie  in  the  x-y  plane.  Nodal  points  are  always 
shared  by  the  elements  adjoining  the  node.  Only  nodes  at  external  corners  of 
the  mesh  are  not  contained  in  more  than  one  element.  The  top  and  bottom  sur¬ 
faces  are  at  every  (x,y)  point  equidistant  from  the  x-y  plane,  but  the  thick¬ 
ness  of  the  mesh,  measured  in  the  z-direction,  may  vary  smoothly  from  point  to 
point.  When  projected  on  the  x-y  plane,  as  in  Figure  3.1,  a  finite-element  mesh 
composed  of  the  type  of  elements  used  by  SUTRA  appears  as  a  mesh  of  contiguous 
quadrilaterals  with  nodes  at  the  corners.  Hence,  the  term,  'quadrilateral 
element ' . 

3.2  Representation  of  Coefficients  in  Space 

Aquifer  parameters  and  coefficients  which  vary  from  point  to  point  in  an 
aquifer  such  as  specific  storativity,  SD,  and  hydraulic  conductivity,  K,  are 
represented  in  an  approximate  way  in  SUTRA.  Parameters  are  either  assigned  a 
particular  constant  value  in  each  element  of  a  f im te-element  mesh  (elementwise), 
or  are  assigned  a  particular  value  at  each  node  in  the  mesh  in  two  possible  ways 
(nodewise  or  cellwiae). 

In  the  water-table  aquifer,  for  a  simple  example,  a  regular  two-dimensional 

mesh  1 s  used.  The  steplike  appearance  of  elementwise  assignment  of  K  values  over 

this  simple  mesh  is  shown  in  Figure  3.2.  Nodewise  assignment  for  head  over 

this  mesh  results  in  a  continuous  surface  of  h  values  as  shown  in  Figure  3.3, 

with  linear  change  in  value  between  adjoining  nodes  along  (projected)  element 

edges.  Cellwise  assignment  is  employed  for  specific  storativity,  S0,  and  the  time 
d  h 

derivative,  — .  This  results  in  a  steplike  appearance  of  the  assigned  values 

O  t 
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over  the  mesh  similar  to  that  of  elementwise  assignment  in  Figure  3.2,  but  each 
cell  is  centered  on  a  node,  not  on  an  element.  Cell  boundaries  are  half  way 
between  opposite  sides  of  an  element  and  are  shown  for  the  regular  mesh  in 
Figure  3.4.  Thus  the  spatial  distributions  of  parameters,  K,  h  and  S,  are 
discretized  (i.e.,  assigned  discrete  values)  in  three  different  wavs:  K, 
elementwise,  h,  nodewise,  and  S0,  cellwise. 

Because  the  internal  program  logic  depends  on  the  type  of  discretization, 
SUTRA  expects  certain  particular  parameters  or  equation  terms  to  be  discretized 
elementwise,  nodewise,  or  cellwise.  The  primary  dependent  variables  of  the 
SITKA  code  p,  and  T  or  C ,  (in  this  example  case,  only  hydraulic  head,  h),  are 
expressed  nodewise  when  used  in  terms  which  calculate  fluxes  of  fluid  mass, 
solute  mass  or  energy. 

F.  1  e  m  e  n  t  w  i  so  d  i  s  c  r  e  t  i  z  a  t  i  o  n 

The  equation  which  gives  the  values,  over  the  finite  element  mesh,  of 
an  elementwise  parameter,  mav  be  expressed  for  the  hydraulic  conductivity 
of  the  present  example  as: 

NT. 

K(  x ,  v  )  a  ^  Kj  (  x ,  v )  (3.3) 

I.-l 

where  the  elements  have  been  numbered  from  one  to  NE  (total  number  of  elements 
in  the  mesh),  and  Kj(x,v)  [L/sj  has  the  value  of  hydraulic  conductivity  of 
element  1.  for  (x,y)  coordinates  within  the  element,  and  a  value  of  zero  outside 
the  element.  Thus  Kp<x,v)  is  the  flat-topped  'box'  standing  on  an  element  1,, 
in  Figure  1.2,  and  K(x,y)  is  represented  in  a  discrete  approximate  way  by  the 
sum  of  all  the  'boxes'.  Note  that  K[(x,v)  has  the  same  value  in  the  z-direction 
from  the  top  to  the  bottom  of  each  two-d 'mens ional  element. 
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Figure  3.4 

Cells,  elements  and  nodes  for  a  two-dimensional 
finite-element  mesh  composed  of  quadrilateral 
elements . 


Nodewise  discretization 


The  equation  which  gives  the  values,  over  the  finite-element  mesh,  of  a 
nodewise  value,  may  be  expressed  for  the  two-dimensional  mesh  as: 

NN 

h(  x,  y ,  t )  »»  )  h  (t)  $  (x,y)  (3.4) 

j  j 
j-i 

where  the  nodes  have  been  numbered  from  one  to  NN  (total  number  of  nodes  in  the 
mesh).  There  are  NN  coefficients,  hj(t),  each  of  which  is  assigned  the  value 
of  head  at  the  coordinates  (xj.yj)  of  node  number,  j.  These  nodal  head  values 
may  change  with  time  to  represent  transient  responses  of  the  system.  The  func¬ 
tion,  4j(x,y),  is  known  as  the  'basis  function'.  It  is  the  basis  functions  which 
spread  values  of  head  between  the  nodes  when  head  is  defined  only  at  the  nodal 
points  by  values  of  h.  There  is  one  basis  function  $j(x,y)  defined  for  each 
node,  j,  of  the  NN  nodes  in  the  mesh.  Suffice  it  to  say,  at  this  point,  that  at 
the  node  j,  to  which  it  belongs,  the  basis  $j(x,y),  has  a  value  of  one.  At  all 
other  nodes  i,  i#j ,  in  the  mesh,  it  has  a  value  of  zero.  It  drops  linearly  in 
value  from  one  to  zero  along  each  projected  element  edge  to  which  the  node  j  is 
connected.  This  means  that  even  when  all  the  NN  products  of  hj  and  $j(x,y) 
are  summed  (as  in  relation  (3.4)),  if  the  sum  is  evaluated  at  the  coordinates 
<xj,yj>  n°de  j.  then  h(x,y)  exactly  takes  on  the  assigned  value,  h j . 

This  is  because  the  basis  function  belonging  to  node  j  has  a  value  of  one  at 
node  j,  and  all  other  basis  functions  belonging  to  other  nodes,  i,  i*j,  have  a 
value  zero  at  node  J  dropping  them  from  the  summation  in  (3.4).  Basis  functions 
are  described  mathematically  in  section  4.1,  "Basis  and  Weighting  Functions." 


Cellwise  discretization 


The  equation  which  gives  the  values,  over  the  finite-element  mesh,  of 
a  cellwise  parameter  may  be  expressed  for  the  specific  storativity  of  the 
present  example  as: 


NN 


S  (  x  ,  v ) 
o 


S1<  x,y) 


(  3.5) 


l-l 

where  S^(x,y)  has  the  value  of  specific  storativity  of  the  cell  centered 
on  node  i  for  (x,y>  coordinates  within  the  cell,  and  a  value  of  zero  outside 
the  cell.  Thus,  Sj(x,y)  is  a  flat  topped  'box'  standing  on  a  cell  i  in 
Figure  3.4,  and  S0(x,y)  is  represented  in  a  discrete  approximate  way  by  the  sum 
of  all  the  'boxes'.  Note  Sj(x,y)  has  the  same  value  in  the  z-direction  from 
the  top  to  bottom  of  each  two-dimensional  element. 


Reviewing  the  example  problem,  K  is  assigned  elementwise  and  both  S  and  — 

o  dt 

are  assigned  cellwise.  Hydrualic  head,  h(x,y,t),  and  element  thickness, 
B(x,y,t),  measured  in  the  z-direction,  are  both  discretized  nodewise,  with 
the  nodewise  expansion  for  thickness: 


B(  x  ,  y ) 


Bj(  t  )<>^(  x,y  ) 


(3.6) 


The  values  Bj(t)  are  the  NN  particular  values  which  element  thickness  has 
at  the  nodes,  and  these  values  may  changp  with  time  in  the  present  water-table 
example.  Relation  (3.6)  should  call  to  mind  a  vision  of  discretized  values 
of  thickness  represented  by  a  surface  similar  to  that  of  Figure  3.3.  The  head 


surface  of  Figure  3.3  may  stretch  or  shrink  to  movp  up  or  down  as  the  head  values 
at  nodes,  h|(t),  change  with  time  due  to  stresses  on  the  aquifer  system.  The 


nodewise  di  scroti  zed  surface  may  be  viewed  as  the  water  table,  and  the  element 
thickness  as  the  thickness  of  the  water-table  aquifer. 

T.  3  Integration  of  (loverning  Kquation  in  Space 

Approximate  governing  equation  and  weighted  residuals  method 

The  governing  equation  for  the  water-table  example  may  be  written  in 
operator  form  as: 

at,  * 

( J (  h )  =  S  ~  -  V-(KVh)  -  ()  *  0  (3.7) 

o  it 

tertain  variables  i n  this  equation  are  approximated  through  elementwise  and 

* 

nodewise  discretization.  Particular  terms  of  the  equation  are  approximated 
through  cellwise  discretization.  The  result  is  that  neither  the  derivatives, 
nor  r  in'  variables  are  described  exactly.  Relation  (3.7)  no  longer  exactly 
equa 1 s  ze ro : 

A 

oth)  =  I<(  x  ,  v ,  r  )  (3.8) 

A 

whim'  0(h)  is  tiio  result  of  approximating  the  terms  of  the  equation  and  the 
variables,  and  K(x,v,t  )  is  the  residual  value  of  the  approx i mat  eel  equation. 

When  simulating  a  system  with  a  numerical  model  based  on  approximation  of  the 

A 

governing  equation,  0(h),  the  residual,  R,  must  he  kept  small  everywhere  in  the 
simulated  region  and  tor  the  ent  i  re  t  iine  of  simulation  in  order  to  accurately 
reproduce  the  physical  behavior  predicted  bv  the  exact  governing  equation,  (3.7 
in  oilier  to  achieve  a  minimum  error,  a  method  of  weighted  residuals  is 
applied  to  (  5.8).  The  purpose  of  the  method  of  weighted  residuals  is  to  mini¬ 
mize  tiie  error  of  approximation  in  particular  sub-re  icns  of  the  spatial  domain 


to  be  simulated.  This  is  done  by  forcing  a  weighted  average  of  the  residual  to 


be  zero  over  the  6ub-regions.  This  idea  is  the  most  abstract  of  those  required 
to  understand  SUTRA  methodology.  The  Galerkin  method  of  weighted  residuals 
chooses  to  use  the  'basis  function',  <t>j(x,y),  mentioned  in  the  previous  section, 
as  the  weighting  function  for  calculation  of  the  average  residual: 


f  A 

I  0(h)  x,y)  dV 


R( x.y , 


t) 


<S>i(x,y)  dV 
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i  *>  1  ,NN 


(  3.9) 


where  V  is  the  volume  of  the  region  to  be  modeled.  The  model  volume  is  com¬ 
pletely  filled  bv  a  single  layer  of  quadrilateral  finite  elements.  Relation 
(3.9)  is  actually  NN  relations,  one  for  each  of  NN  nodes  in  the  finite  element 
mesh  as  indicated  by  the  notation,  i  ■  1,NN. 

In  each  relation,  the  integral  sums  the  residual  weighted  by  the  basis 
function  over  a  volume  of  space.  Each  integrated  weighted  residual  is  forced 
to  zero  over  the  region  of  space  in  which  <j>j(x,y)  is  non-zero.  This  region 
includes  only  elements  which  contain  node  i,  because  of  the  manner  in  which  the 
basis  function  is  defined,  as  described  earlier.  Thus,  over  each  of  these  NN 
sub-regions  of  a  mesh,  the  sum  of  positive  and  negative  residuals  after  weighting 
is  forced  to  zero  by  relation  (3.9).  This,  in  effect,  minimizes  the  average 
error  in  approximating  the  governing  equation  over  each  sub-region. 

After  stating  that  the  integral  of  weighted  residuals  must  be  zero  for 
each  sub-region  of  the  mesh  as  in  (3.9),  the  derivation  of  the  numerical 
methods  becomes  primarily  a  job  of  algebraic  manipulation.  The  process  is 

A 

begun  bv  substitution  of  the  governing  equation  for  0(h)  in  (3.9): 


V 


i  -  1 , NN 

The  terms  in  large  parentheses  topped  by  a  carat  are  the  approximate  discrete 
forms  of  the  respective  terms  in  (3.7).  These  are  expanded  in  the  manipulations 
that  follow.  Relation  (3.10)  is  discussed  term  by  term  in  the  following  para¬ 
graphs  . 


Cel lwlse  integration  of  time-derivative  term 

The  first  term  involving  the  volume  integral  of  the  time  derivative  may  be 
written  in  terms  of  the  three  space  dimensions,  x,  y,  and  z.  Although  the  gov¬ 
erning  equation  and  parameters  vary  only  in  two  space  dimensions,  they  apply  to 
the  complete  three-dimensional  region  to  be  modeled. 


(3.11) 


The  rearrangement  in  the  final  term  of  (3.11)  is  possible  because  no  parameter 
depends  on  z.  In  fact,  referring  to  (3.2),  the  aquifer  thickness,  B(x,y,t), 
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mav  be  defined  as: 


B(  x ,  y  ,  t ) 


dz  *  h(x,y,t.  )  -  BASF.(x,y) 


(3.12) 


The  final  term  of  (3.11)  is  then: 


//(•- 


y  )  B<  x  ,  v  ,  f  )  dx  dv 


(3.13) 


Now  rellwise  d i sr re t i z at i on  is  chosen  for  S  and  for  — — ,  making  these  terms 

o  a  t 

take  on  a  constant  value  for  the  region  of  each  cell  i.  The  region  of  cell  i 
is  the  same  region  over  which  S^(x,v)  is  non-zero.  Then,  for  any  cell  i, 
term  (3.13)  becomes: 


d  h  . 
Si  dr1 


//-- 


v )  B( x , v , t )  dx  dy 


(3.14) 


where  5’.  ,  and  4~d  are  the  values  taken  bv  S  and  4^  J  n  fell  i. 
t  dt  o  dt 

It  can  he  shown  that  the  volume  of  cell  i,  denoted  by  Vj(t),  is,  in 
fact,  the  integral  in  (3.14): 


V  ,  (  t  ) 


//*■"• 


v  >  B ( x , v , t )  dx  dv 


(3.13) 


For  a  particular  finite-element  mesh,  the  volume  Vj(t)  of  each  cell  is 
determined  hv  numerical  integration  of  (3.13).  Numerical  integration  bv 
Gaussian  quadrature  is  discussed  in  section  (4.3),  "Gaussian  Integration." 
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Given  the  value  of  the  specific  storat.ivitv  of  each  cel] 


the  time 


■’  i  ■ 


dh  . 


derivative  of  head  in  each  cell,  ~ — i  ,  and  given  the  volume  of  each  cell,  V.(t), 

ot  1 

determined  numerically,  tfie  first  term  of  the  weighted  residual  statement  takes 
on  its  discrete  approximation  in  space: 


<  3.16) 


Klemenfwise  integration  of  flux  _term_  and  origin  of  boundary  fluxtys 

Manipulation  of  the  second  integral  in  f  1.10)  begins  with  the  appl i- 
i  at  ion  of  Green's  theorem  which  is  an  expanded  form  of  the  divergence  theorem. 
This  converts  the  integral  into  two  terms,  one  of  which  is  evaluated  only  at  the 
surface  of  the  region  to  be  simulated.  Green's  theorem  is: 


A  (iV  3  j (W  n)  A  d(  " j(*  XA) 


dV 


(  3.17) 


where  A  is  a  sralai  and  W  is  a  vector  quant  i  tv.  The  boundary  of  volume  A  is 
denoted  bv  I  i  ru  luding  both  edges  and  upper  and  lower  surfaces  of  the  aquifer, 
and  n  is  a  unit  outward  normal  vector  to  the  boundary.  Application  of  (1.17) 
to  the  second  term  in  (  t . ID)  results  in: 


-/h(*)l 


0  .  (  x  ,  v  ) 
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•  Vo,  dV 


(  1.18) 
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The  first  term  on  the  right  of  (3.18)  contains  a  fluid  flux  given  by  Darcy’s 


law: 


c 


v 

OUT 


KVh  •  n 


<3.19) 


wherp  vquj  is  the  outward  velocity  at  the  boundary  normal  to  the  bounding 
surface.  Thus  the  integral  gives  the  total  flow  out  across  the  bounding 
surface,  QoiITj’  t*le  vicinity  of  a  node  i  on  the  surface: 


<  3.20) 


An  inflow  would  have  a  negative  value  of  QoUT^»  anc*  t^le  relation  between 
an  inflow,  Qj^,  anc*  outflow  is:  Qj^  *  ~Q0UT^‘  Thus,  the  first 
integral  on  the  right  of  (3.18)  represents  flows  across  boundaries  of  the 
water-table  aquifer  model. 

The  second  integral  on  the  right  of  (3.18)  may  be  expressed  in  three 
spatial  coordinates. 


J (l/vh^-V^  dV  -  / / 


dz  dv  dx 


x  v  z 
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j  dz  J  dy  dx  ■  J J 


B(x,v,t)  dy  dx 


x  v 


x  y 


No  term  varies  in  the  z-direction,  allowing  the  use  of  (3.12)  which  defines 
aquifer  thickness  B.  Notice  that  the  transmi sb Ivity  as  given  by  (3.2),  T  ■  KB 
appears  in  the  form  of  the  integral  just  obtained. 


Now  the  approximation  for  the  term  K  Vh  is  substituted  into  the  integral. 
Hydraulic  head,  h(x,v,t),  is  approximated  in  a  nodewise  mariner  as  given  by  re¬ 
lit  ion  (  1.4),  The  integral  of  (3.2)  becomes: 


J Vh^-Vij.  B  dv  dx  "  J j'f*'  ^  X  <t>  ■  (  x ,  y  )  j- V<p  B  dv  dx 


x  v 


NN 

I  h  i  (  t  ) 


j f  K  (v*r-*i) 


NN 

B  dv  dx  *  T  h  ,  (  t  )  1  ,  .  (  t ) 
i=i  1  n 


(3.22) 


where  k  is  the  elementwise  approximation  for  K(x,y).  The  summation  and  h  j ( t ) 

may  be  factored  out  of  the  integral  because  hj  is  a  value  of  head  at  a  node  and 
does  not  vary  with  x  and  v  location.  The  integral  is  represented  by  Iji(t)  and 
depends  on  time  because  aquifer  thickness,  B,  is  time-dependent.  For  each  node 
i,  there  are  apparently  j=NN  integrals  which  need  to  be  evaluated.  In  fact,  du 
to  the  wav  in  which  basis  functions  are  defined,  there  are  only  a  few  which  are 
non-zero,  because  (V<t>j  •  V0j)  is  non-zeto  only  when  nodes  i  and  j  are  in  the 
same  finite  element  .  When  nodes  i  and  j  are  in  different  elements,  then  V0j  is 
zero  in  the  element  containing  node  i. 

The  integrals  are  evaluated  numerically  bv  Gaussian  integration.  This 
is  accomplished  by  first  breaking  up  the  integral  over  the  whole  volume  to 


be  simulated,  into  a  sum  of  integrals,  one  each  over  every  finite  element 


B  dy  dx 


(3.24) 


Here,  the  thickness  B  is  specified  to  vary  nodewise.  The  formula  for  B  in  this 
example  is  obtained  by  substituting  the  nodewise  expression  for  head,  (3.4),  in¬ 
to  the  definition  of  B,  relation  (3.2). 

The  integral  over  one  element,  as  given  by  term  (3.24),  must  be  evaluated 
numerically.  In  order  to  do  this,  the  coordinates  of  the  element  L,  which  has 
an  arbitrary  quadrilateral  shape  as  suggested  in  Figure  3.3,  is  transformed  to 
a  new  coordinate  system  in  which  the  element  is  a  two-by-two  square.  Then, 
Gaussian  integration  is  carried  out  to  evaluate  the  integral.  For  a  given  com¬ 
bination  of  nodes  i  and  j,  this  transformation  and  numerical  integration  is 
carried  out  for  all  elements  in  the  mesh  in  which  both  nodes  i  and  j  appear. 
(There  are  16  i-j  combinations  evaluated  in  each  quadrilateral  element.)  The 
elementwise  pieces  of  the  integral  for  each  i-j  combination  are  then  summed 
according  to  (3.23)  in  order  to  obtain  the  value  of  the  integral  over  the  whole 
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region.  The  summation  is  called  the  'assembly'  process.  This  element  transfor¬ 
mation,  integration  of  the  16  integrals  arising  in  each  element,  and  summation, 
makes  up  a  large  part  of  the  computational  effort  of  a  finite-element  model  and 
also  requires  the  most  complex  algorithm  in  a  finite-element  model.  It  is  in 
this  way  that  the  second  term  of  (3.10)  is  evaluated.  More  information  on  finite- 
element  integration  and  assembly  may  be  found  in  numerical  methods  texts  such  as 
Wang  and  Anderson  (1982),  Pinder  and  Gray  (1977),  or  Huyakorn  and  Pinder  (1983). 
The  details  of  this  method  as  applied  in  SUTRA  are  given  in  Chapter  4,  "Numerical 
Methods . " 


Cellwise  integration  of  source  term 

The  last  term  of  (3.10)  deals  with  sources  of  fluid  to  the  aquifep  such  as 
injection  wells.  The  volume  integral  may,  as  before,  may  be  written  in  x,y. 


and  z  coordinates: 


where  thickness  B  is  introduced  because  Q  and  do  not  vary  with  z.  It 
is  assumed  that  all  fluid  entering  the  aquifer  within  the  region  of  cell  i, 
which  surrounds  node  i,  enters  at  node  i.  If  Q*  {L^/sJ  is  defined  as  the 
volume  of  fluid  entering  cell  i  per  unit  time,  then  Q*  (s-^),  which  is  the 
volume  of  fluid  entering  the  aquifer  per  unit  volume  aquifer  per  unit  time, 
is  given  as: 
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(3.26) 


Thus  all  recharges  within  cell  i  due  to  areal  infiltration,  well  injection  or 
other  types  are  allocated  to  the  source  at  node  i. 

This  completes  the  spatial  integration  of  the  governing  equation  for  the 
example  problem. 


3.4  Time  Discretization  of  Governing  Equation 


When  the  integrated  terms  of  the  governing  equation  are  substituted  in 
(3.10)  the  following  results: 


5.  V.(t)  ♦  l  I41<t)  h  ( t) 

1  i  dt  iml  ij  j 


(3.28) 


i  -  1 ,  NN 


These  are  NN  integrated  weighted  residual  approximations  of  the  governing  dif¬ 
ferential  equation,  one  at  each  node  i  in  the  mesh.  Because  of  the  summation 
term  in  (3.28),  the  integrated  approximate  equation  for  a  node,  i,  may  involve 
the  values  of  head,  hj(t),  at  all  other  nodes  in  the  mesh.  The  other  terms 
in  (3.28)  involve  only  values  at  node  i  itself,  at  which  the  entire  relation 
is  evaluated. 
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All  the  parameters  in  (3.28)  are  no  longer  functions  of  the  space  coordin¬ 


ates.  Each  parameter  takes  on  a  particular  value  at  each  node  in  the  mesh. 
Some  of  these  values  vary  with  time  and  a  particular  time  for  evaluation  of 
these  values  needs  to  be  specified.  Also,  the  time  derivative  requires  dis¬ 
cretization. 


Time  steps 

Time  is  broken  up  into  a  series  of  discrete  steps,  or  time  steps.  The 
length  of  a  time  step.  At,  is  the  difference  in  time  between  two  discrete 
times,  at  the  beginning  and  end  of  a  time  step: 

At  ,  *  tn+1  -  t"  (3.29) 

n+1 

where  Atn+j  is  the  length  of  the  (n+l)*^  time  step,  tn  is  the  actual  time 
at  the  beginning  of  the  (n+l)1-^  time  step  and  tn+*  is  the  actual  time  at 
the  end  of  this  time  step.  The  time  steps  are  chosen  to  discretize  the  time 
domain  before  a  simulation  just  as  a  mesh  (or  'spatial  steps')  is  chosen  to 
discretize  space.  The  time  step  length  may  vary  from  step  to  step. 

The  entire  spatially  integrated  governing  equation,  (3.28),  is  evaluated  at 
the  end  of  each  time  step,  t  *  tn+^ .  The  time  derivative  of  head  in  (2.28)  is 
approximated,  using  a  finite-difference  approximation,  as  the  change  in  head 
over  a  time  step,  divided  by  the  time  step  length: 


dh. 

dt1 


h .  ( t 
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+  At  xl)  -  h.(t") 
n+1  i 


At 


n+1 


(3.30) 


In  order  to  simplify  the  notation,  the  head  at  the  end  of  the  time  step. 


h^(tn  +  )  is  denoted  h^+^  ,  and  the  head  at  the  beginning  of  the  time  step 

h.(tn)  is  denoted  h?.  Thus, 
i  1 


n+1 


dh , 
dt 


1  - 


At 


(  3. 31  ) 


n+1 


The  parameters  that  depend  on  time  in  (3.28),  V^(t),  I  (t)  and  h^(t), 
are  also  evaluated  at  the  time,  tn+^  ,  at  the  end  of  a  time  step: 


h  .  ( t ) 


n+ 1 


hn+1 

J 


( 3.32a) 


v  ( t )  I  =  vn+1 
V  I  n+1  i 

I.  ,(t)|  -  In+1 

ij  ltn+l  ij 


(3.32b) 

(3.32c) 


The  sources,  Qjn^>  anc*  Qi  >  are  assumed  constant  in  time  for  present 
example . 


Resolution  of  non-linearities 

The  variability  in  time  of  cell  volume,  Vj,  and  the  integral,  Ijj. 
depends  on  the  changing  thickness  of  the  aquifer  with  time,  B(x,y,t).  The 
aquifer  thickness  at  node  i  at  the  end  of  a  time  step,  is  not  known  until 

the  head  at  the  end  of  the  time  step  is  known  giving  the  water-table  elevation. 
This  typifies  a  non-linear  problem  wherein  the  problem  requires  values  of  coef¬ 
ficients  in  order  to  be  solved,  but  the  values  of  these  coefficients  depend  on 
the,  as  yet  unobtained  solution.  This  circular  problem  is  avoided  in  this  ex¬ 
ample  by  using  estimates  of  the  coefficient  values  in  the  solution.  An  estimate 
of  the  head  at  the  end  of  the  next  time  step  is  obtained  by  a  linear  projection: 

hToj  ■  hi +  ■  hi"1)  n-33) 
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where  h?r°^  is  the  projected  or  estimated  head  at  the  end  of  the,  as  yet  un¬ 
solved  time  step,  which  would  have  an  exact  value,  h^+^ .  Actually,  in  addition 
to  projection,  SUTRA  also  employs  a  simple  iterative  process  to  resolve  non- 
linearities.  This  is  described  in  sections  4.4  and  4.5  under  the  sub-heading 
"Temporal  discretization  and  iteration." 

A  projected  thickness  may  then  be  determined  from  (3.33)  as: 


Bn+1 

1 


Bproj  „  hproj  _  BAS£ 
li  l 


(3.34) 


where  Bn+^  is  the  value  of  thickness  needed  to  evaluate  V?+^  and  ,  B^r°^ 

i  i  ij  i 

is  the  estimated  value  of  B?+^ ,  and  BASE,  is  the  value  of  BASE(x,y)  at  node  i. 

1-1  ji 

Now  the  spatially  integrated  equation,  (3.28),  may  be  written  discretely 
in  time: 

n+1 


.  /  h  .  -  h .  \  NN 

S.v"*1  I  -It- - i  I  ♦  1 

11  \  n+1  /  j*l 


Tn+1  ,n+l 
1 .  .  h  . 
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QINi  +  Qi 


(3.35) 


i  *  1 , NN 


where  V'n+*  and  are  evaluated  based  on  projected  thickness,  B?r°^ . 

l  ij  *  J  l 


rn+l 


3.5  Boundary  Conditions  and  Solution  of  Discretized  Equation 


Matrix  equation  and  solution  sequence 

The  NN  relations  given  by  (3.35)  may  be  rearranged  and  rewritten  in 
matrix  form: 
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By  adding  the  two  matrices  on  the  left  aide,  and  the  vectors  on  the  right 
side,  a  matrix  equation  is  obtained  which  may  be  solved  for  the  model  heads 
at  the  new  time  level,  tn+* ,  on  each  time  step: 
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(3.37) 


The  solution  progresses  through  time  as  follows:  On  a  given  time  step,  the 
nodal  heads  at  the  beginning  of  the  step  are  known  values  and  are  placed  in  h” 
on  the  right  hand  side  vector  of  (3.37).  The  thickness-dependent  values  are 
determined  based  on  the  projection  of  B  in  (3.34)  using  projected  head  of 
(3.33).  The  integrals  and  volumes  are  evaluated  and  the  matrix  and  vector  com¬ 
pleted.  The  nodal  heads  at  the  end  of  the  current  time  step  are  solved  for  by 
Gaussian  elimination  for  the  (banded)  matrix  on  the  left  of  (3.37).  The  new 
heads  are  then  placed  on  the  right  side  of  (3.37)  into  hn,  and  a  new  time 
step  is  begun. 
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Specification  of  boundary  conditions 


Before  solving  the  matrix  equation  as  described  above,  information  about 
boundary  conditions  must  be  included.  In  the  case  of  solving  for  heads,  the 
boundary  conditions  take  the  form  of  either  specified  fluid  fluxes  across 
boundaries  which  are  directly  entered  in  the  terms,  Qj^,  or  of  particular 
head  values  specified  at  nodal  locations.  At  a  point  of  fixed  head  in  an  aquifer, 
a  particular  value  of  fluid  inflow  or  outflow  occurs  at  that  point  in  order  to 
keep  the  head  constant  when  the  aquifer  is  stressed.  It  is  this  flux  of  fluid 
which  is  added  to  the  model  aquifer  in  order  to  obtain  fixed  heads  at  nodes. 

Consider  the  closed  system  of  Figure  3.5  in  which  head  at  node  i,  h^,  is 
to  have  a  specified  value,  hgg,  for  all  time.  A  well  is  removing  water  from 
the  system  at  an  internal  node.  A  core  of  porous  medium  with  conductance  v  is 
connected  to  node  i.  The  head  outside  the  core  is  held  at  the  specified  value, 
hg£.  The  head  at  node  i,  h^,  is  calculated  by  the  model.  A  flow  of  Qgc^ 

[l3/sJ  enters  through  the  core  at  node  i  in  order  to  balance  the  rate  of  fluid 
removal  at  the  well.  The  resulting  head  at  node  i  depends  on  the  conductance 
value  v  of  the  core.  If  v  is  very  small,  then  a  large  head  drop  is  required 
across  the  core  in  order  to  supply  fluid  at  the  rate  the  pumping  well  requires. 
This  results  in  h^  having  quite  a  different  value  from  hgg.  If,  however,  v 
is  very  large,  then  the  value  of  head  at  node  i,  is  very  close  to  hg£,  as  only 
a  minute  head  drop  across  the  core  supplies  the  fluid  required  by  the  well. 
Therefore,  hy  applying  flux  to  a  node  through  a  highly  conductive  core,  the  out¬ 
side  of  which  is  held  at  a  specified  head  value,  the  node  responds  with  a  head 
value  nearly  equal  to  that  specified.  An  advantage  of  specifying  head  this  way 


CIO 


CONDUCTANCE 


is  that  when  head  at  a  node  in  the  mesh  is  fixed,  a  calculation  of  the  flux 
entering  the  mesh  at  this  node  is  obtained  at  the  same  time. 

This  flux  is  defined  as  follows: 
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The  third  term  of  expanded  relation  (4.39)  involving  the  divergence  of 
fluid  flux  is  weighted  with  the  asymmetric  function.  The  asymmetry  is  intended 
for  use  only  in  unsaturated  flow  problems  to  maintain  solution  stability  when 
the  mesh  has  not  been  designed  fine  enough  to  represent  sharp  saturation  fronts. 
In  general,  the  usual  symmetric  function  is  used  for  weighting  this  flux  term 
even  for  unsaturated  flow,  but  the  term  is  developed  with  the  asymmetric  function 
in  order  to  provide  generality.  Green's  Theorem  (3.17)  is  applied  yielding: 
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wherein  the  terms  with  carats  are  approximated  discretely  as  described  below, 
n  is  the  unit  outward  normal  to  the  three-dimensional  surface  bounding  the 
region  to  be  simulated,  and  T  is  the  surface  of  the  region.  The  asymmetric 
weighting  function  in  global  (rather  than  local)  coordinates  is  denoted, 
o>^(x,y).  The  first  term  on  the  right  of  (4.43)  is  exactly  the  fluid  mass  flux 
(see  Darcy's  law,  relation  (2.19))  out  across  the  region’s  boundary  at  node  i, 

qOUT(t)  ln  units  of 
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(4.44) 
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vh«r<’  v>  j  >  \ ,  v ;  i  r.  rht*  weight  ing  function  in  global  coordinates  chosen  to  be 

either  t  ho  basis  function,  o  i  <  x  .  v  '  or  the  asymmetric  weighting  function, 

■.  j  depending  on  the  r. e rm  of  the  equation.  Relation  (4.38)  is  approxi- 
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:M!»i  d  i  s<  p’tf'iv  and  substituted  for  0  i  p ,  1  )  in  (4.3d).  The  resulting  set  of 

p 

in'egrui  r.-rms  is  ••vaiuited,  <uie  term  it  a  time  in  the  following  paragraphs. 
The  first  term  is  an  integral  ot  the  pressure  derivative: 
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4.4  Numerical  Approximation  of  SUTRA  Fluid  Mass  Balance 


The  governing  equation  representing  the  SUTRA  fluid  mass  balance  (2.24),  is 
modified  by  the  addition  of  a  point  source  term  which  is  used  to  insert  points 
at  which  pressure  is  specified.  This  is  done  as  described  in  text  referring  to 
relation  (3.38). 


The  last  term  is  the  source  term  arising  from  a  specified  pressure  condition, 
wherein  Vp  is  a  'conductance'  and  pgc(t)  is  the  externally  specified  pressure 
boundary  condition  value.  When  Vp  is  set  to  a  sufficiently  large  value,  the 
last  term  becomes  much  larger  than  the  others  in  (4.38),  and  p  «  PBC>  which  is 
the  desired  boundary  condition.  Relation  (4.38)  is  numerically  approximated  in 
the  following  sections. 

Spatial  1 n  te gration 

When  the  equation  for  Op(p,U)  is  approximated  through  nodewise,  elementwise 
and  cellwise  discretizations,  it  no  longer  exactly  equals  zero.  The  approximate 

A 

equation,  CMp.U),  equals  a  spatially  varying  residual,  Rp(x,y,t),  as  shown 
in  (3.8).  A  weighted  residual  formulation  may  be  written  as: 


The  values  of  V<t>  are  in  global  coordinates  and  are  obtained  by  transformation 
of  derivatives  calculated  in  local  coordinates. 


Gaussian  integration  is  applied  independently  to  each  integral: 
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as  a  single  summation: 
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(4.37) 

where  Kf-  and  refer  to  Gauss  point  locations  in  the  £  and  q  directions,  and 
where  £^g  and  refer  to  the  four  Gauss  points  arising  in  (4.36)  as  depicted 

in  Figure  4.3.  Thus,  in  order  to  evaluate  the  integral  (4.34)  over  a  given 
element,  onlv  four  values  of  the  integral  need  to  be  summed  as  given  in  (4.37) 
with  one  value  determined  at  each  of  the  four  Gauss  points. 

In  the  case  where  an  element  is  a  non-rectangular  quadrilateral  with 
variable  thickness  B,  the  polynomial  to  be  integrated  in  (4.33)  is  of  fourth 
order  as  each  of  the  terms  may  vary  linearly  in  the  same  direction.  Otherwise 
it  is  alwavs  of  third  order  or  less,  and  two-point  Gauss  integration  provides 
exact  results. 

Note  that  the  summation  indication  by  (4.37)  over  the  Gauss  points  is 
carried  out  bv  SUTRA  subroutine  'ELEMEN'  for  each  element  in  the  mesh  and  for 
each  integral  which  requires  evaluation. 
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Figure  4.3 

Finite  element  in  local  coordinate  system  with  Gauss 


encountered  are  usually  of  order  three  or  less.  In  this  case,  the  constants, 
have  a  value  of  one  and  (4.32)  simplifies  to: 


T  *=  +1 


f ( t )  dx 


f(W 


(4.33) 


i  =  -1 


The  values  of  Xvq  for  Gauss  points  one  and  two,  are  minus  and  plus  0.577350269189626, 
(or  t  3~^  respectively). 

The  need  to  define  a  two  by  two  element  in  local  coordinates  is  apparent 
tiere.  Gaussian  integration  is  done  over  a  range  of  two  from  -1  to  +1.  In  order 
to  integrate  a  term  of  the  differential  governing  equation  over  an  arbitrary 
quadrilateral  element  in  the  mesh,  the  limits  of  the  integral  must  first  be 
transformed  to  values  of  -1  and  +1,  that  is,  to  local  coordinates.  When  inte¬ 
grating  a  double  integral,  both  integrals  must  be  transformed  to  have  limits  of 
-1  and  +1,  and  two  Gauss  points  are  needed  in  each  coordinate  direction.  These 
are  defined  as  shown  in  Figure  4.3. 

An  example,  evaluating  the  integral  of  (3.24)  follows:  The  integral  to 


evaluate  is: 


A..  *  /  [  (V<t>.  •  V<t> . )  B .  dy  dx 

i]  J  J  ~3  ~  i  i 


(4.34) 
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where  and  y^  indicate  that  the  integral  is  over  the  area  of  an  element  L  in 
global  coordinates.  First,  the  (x,y)  integral  is  converted  to  an  integral  in 
local  coordinates  (£,h)  through  use  of  the  Jacobian: 
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where  det  J  is  the  determinant  of  the  Jacobian  given  by: 

det  J  -  Jn  J22  -  JJ2  J9]  (4.30) 

The  determinant  may  vary  bi-linearly  over  an  element. 

Differential  elements  of  area,  dA,  are  transformed  between  local  and  global 
coordinate  systems  as: 

dA  *  dx  dy  *  ( det  J )  d£  dp  (4.11) 

Note  that  the  Jacobian  matrix,  determinant  of  the  Jacobian,  and  the  deri¬ 
vatives  of  the  basis  functions  in  local  and  global  coordinates  are  calculated 
in  SUTRA  subroutine,  'BASIS2'. 


4.3  Gaussian  Integration 

Gaussian  integration  is  a  method  by  which  exact  integration  of  polynomials 
may  be  carried  out  through  a  simple  summation  of  point  values  of  the  integrand. 
The  method  is: 

T-+1  NP 

/  '  2  °KG  "W  l4'32) 

xm~ 1  KG»1 

where  f ( t )  is  the  function  to  be  integrated  between  t  ■  -1  and  x  «*  +1 .  KG  is  the 
Gauss  point  number,  NP  is  the  total  number  of  Gauss  points,  GKG  is  a  constant, 
and  X|(g  is  the  location  of  the  KG*^  Gauss  point.  An  exact  integration  is  guar¬ 
anteed  by  the  sum  in  (4.32)  if  ( 2n-l  )  Gauss  points  are  used  for  a  polynomial  f(T) 
of  order  n.  For  evaluation  of  integrals  which  arise  in  the  SUTRA  methodology. 


only  two  Gauss  points  are  used  in  a  given  coordinate  direction  as  the  integrals 


involves  a  linear  remapping  in  each  coordinate  direction  and  employs  the  basis 
functions  to  provide  mapping.  The  Jacobian  matrix  [J]  is  calculated  separately 
for  each  element  that  requires  transformation  and  may  vary  from  point  to  point 
in  an  element. 
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The  numbered  subscripts  refer  to  the  local  element  numbering  of  Figure  4.1. 

The  Jacobian  matrix  is  used  to  transform  derivatives  of  basis  functions  from 
the  global  to  the  local  coordinate  systems  and  the  reverse: 
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where : 
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The  subscript  j  refers  to  any  one  of  the  four  nodes  in  an  element  and  4> .  refers 

.  th 


to  the  global  basis  function  as  defined  for  the  j  node  in  an  element.  The 
same  transformations  apply  to  derivatives  of  the  asymmetric  weighting  functions 
which  are  denoted  w,  in  global  coordinates.  In  (4.27',  j^J  is  the 


inverse 


Jacobian  matrix  defined  as: 


The  parameters  and  a^  determine  the  amount  of  asymmetry  (or  upstream 

weight)  in  each  coordinate  direction.  When  these  parameters  have  a  value  of 

zero,  then  the  basis  functions  and  their  derivatives,  equivalent  to  (4.5) 

through  (4.12)  are  exactly  obtained  from  (4.13)  through  (4.22).  The  values  of 

a_  and  a  depend  on  location  in  the  element: 

£  n 
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where  UP  is  the  fractional  strength  of  upstream  weighting  desired  (chosen  by  the 

model  user),  v£(£,n)  and  vI1(5,ti)  are  the  components  of  fluid  velocity  given 

in  terms  of  local  element  coordinates,  and  jv,  ,(£,n)|  is  the  magnitude  of 

~locai 

fluid  velocity  given  in  terms  of  local  coordinates.  Each  velocity  component  may 
vary  in  value  throughout  the  element.  A  description  of  the  calculation  of  fluid 
velocity  is  given  in  section  4.6,  "Consistent  Evaluation  of  Fluid  Velocity.” 

Note  that  the  basis  functions,  weighting  functions  and  their  derivatives  are 
calculated  by  the  SUTRA  subroutine  'BASIS2'. 


4.2  Coordinate  Transformations 


During  calculations  for  the  finite-element  mesh  and  during  integral 
evaluations,  transformations  are  required  between  the  global  (x,y)  coordinate 
system  in  which  an  element  may  have  an  arbitrary  size  and  quadrilateral  shape, 
and  the  local  (£,n)  coordinate  system  in  which  each  element  is  a  two  by  two 
square.  Transformations  are  required  in  both  directions.  The  transformation 
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to  give  an  'upstream  weighting'  to  the  advective  flux  term  in  the  transport 
equations  or  to  provide  'upstream  weighting'  to  the  fluid  flux  term  in  the  fluid 
mass  balance  when  the  medium  is  unsaturated.  The  asymmetric  functions  are  defined 
as  follows: 
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The  spatial  derivatives  are: 
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The  two-dimensional  bi-linear  basis  functions,  when  defined  in  the  local  element 
coordinate  system  are  denoted  as  ft^(£,n),  i*l,2.3,4.  There  is  one  basis  function 
defined  for  each  node. 

The  basis  function  52^,  defined  for  node  i,  has  a  value  of  one  at  the  node 

and  a  value  of  zero  at  the  other  nodes.  The  surface  representing  ft^(£,n)  over 

an  element  is  curved  due  to  the  product  of  £  and  n  in  equations  (4.5)  through 

(4.8).  A  trajectory  in  the  surface  parallel  to  an  element  side,  however,  is  a 

perfectly  straight  line  as  shown  in  Figure  4.2.  This  is  born  out  in  the  der¬ 
ivatives  of  the  bi-linear  basis  functions  which  depend  on  only  one  space  co¬ 
ordinate  : 
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Asymmetric  weighting  functions  are  defined  for  use  in  a  Galerkin-Petrov 
method  (one  version  of  which  is  described  in  Huyakorn  and  Pinder,  1983).  These 
are  not  applied  for  nodewise  discretization  of  parameters,  but  rather  for 
weighting  in  the  volume  integrals  of  the  governing  equation.  They  may  be  used 


Numerical  Methods 


In  this  section,  the  numerical  methods  upon  which  SUTRA  is  based  are  presented 
in  detail.  The  purpose  of  this  presentation  is  to  provide  a  complete  reference  for 
the  computer  code. 

4.1  Basis  and  Weighting  Functions 

Basis  functions,  weighting  functions  and  their  derivatives  are  all  described 
in  local  element  geometry.  In  a  local  coordinate  system,  every  element  takes  the 
shape  of  a  two  by  two  square.  The  local  coordinates,  £  and  q,  are  shown  along 
with  a  generic  local  finite  element  in  Figure  4.1.  The  origin  of  the  local 
coordinate  system  is  at  the  center  of  the  element.  Local  node  one  always  has 
local  coordinates  (£,  q)  *  (-1,  -1).  The  other  nodes  are  numbered  counter¬ 
clockwise  from  the  first  node  as  shown  in  Figure  4.1. 

The  following  one-dimensional  basis  functions  are  defined  over  the  region 
of  the  element: 
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These  linear  one-dimensional  basis  functions  are  continuous  in  £  and  q  and 
have  either  a  value  of  zero  or  one  depending  on  whether  £  or  q  have  a  value 
of  +1  or  -1.  The  one-dimensional  functions  are  combined  to  create  the  bi¬ 
linear  basis  functions  used  in  SUTRA: 


This  term  is  used  to  specify  fluid  flows  across  boundaries  in  SUTRA.  Note  that 


an  inflow,  qINi<t)  is  qIN.  -  -qoUT*- 

The  second  term  on  the  right  of  (A. 43)  is  approximated  using  a  combination 
of  elementwise  and  nodewise  discretizations.  The  approximation  of  (Vp  -  pg) 
requires  particular  attention  and  is  discussed  in  section  4.6,  "Consistent 
Evaluation  of  Fluid  Velocity."  The  permeability  tensor  appearing  in  (4.43)  in 
general  has  nine  components,  however,  (Vp  -  pg)  is  always  zero  in  the  third 
spatial  direction  due  to  the  assumption  of  a  two-dimensional  model.  Thus  only 
four  components  of  the  permeability  tensor  are  required: 


(4.45) 


wherein  k  and  is  discretized  elementwise  as  indicated  by  k^.  The  pressure  is 
discretized  nodewise: 


NN 

p(x,y,t)  a  £  P.(t)  <J>  ( x ,  y )  (4.46) 

i-1  1  1 

Relative  permeability,  kr,  depends  on  saturation  which,  in  turn,  depends  on 
pressure.  Relative  permeabilities  are  evaluated  at  each  Gauss  point  during 
numerical  integration  depending  on  the  saturation  (and  pressure)  at  the  Gauss 
point.  Viscosity  is  evaluated  at  each  Gauss  point  for  energy  transport  as  a 
function  of  nodewise  discretized  temperature,  and  is  constant  for  solute 


transport . 


Density,  P,  when  it  appears  in  the  permeability  term,  is  also  evaluated  at 
each  Gauss  point  depending  ori  the  nodewise  discretized  value  of  l1  at  the  Gauss 
point.  The  density  appearing  in  product  with  the  gravity  term  is  expressly 
not  evaluated  in  this  usual  manner.  A  particular  discretization  is  used  which 
maintains  consistency  with  the  Vp  term  as  described  in  section  4.6,  "Consistent 
Evaluation  of  Fluid  Velocity".  This  consistently-evaluated  pg  term  is  denoted 
pg,  (see  relation  (4.103)). 

The  second  term  on  the  right  of  (4.43)  is  thus  approximated  as: 


B( x , y )  dy  dx 


B(x,v)  dy  dx 


(4.47) 
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where  k1'  indicates  an  elementwise  discretized  permeability  tensor 


•(¥> 


indicates  the  value  of  the  term  based  on  nodewise  discretized  values  of  p  and  I 
and  (pg)  indicates  a  discretization  of  (pg)  consistent,  with  the  discretization 
of  Vp.  Tire  thickness  of  the  mesh,  B(x,v),  is  evaluated  at  each  Gauss  point 
depending  on  a  nodewise  discretization: 

NX 


IU  x  ,  v  )  2  V  h  .  (*) ,  (  x  ,  v  ) 
l=1  1  ' 


(4.48) 


where  B.  is  I  he  mesh  thickness  at  node  i.  Note  that  mesh  thickness  is  fixed 

l 

arid  may  not  varv  in  time  as  was  allowed  for  illustrative  purposes  in  Chapter  3, 
"Fundamentals  of  Numerical  Algorithms," 

Tho  last  two  terms  of  (4.38)  are  approximated  cell  wise  with  a  basis 
function  for  weighting. 
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j  Qp  °i(x’v)  dV  -  J  [VplPBC  "  PjJ  ♦iU-y)  dV  =  '  Qi  -  ViiPBC."  Pi) 


(4.49) 

The  cellwise  discretizations  which  are  employed  in  the  above  evaluations  are: 


NN  /Q. 

Q.  »  I  TT 


\v. 

1  =  1  '  1 


|  V:  |  ■  [Vp(PBC  -  p)]  ■  j,  f(r)  (pBC.-  pi)] 


(4.50) 


(4.51) 


where  V^is  the  volume  of  cell  i,  Q^(t)  [M/sj  is  the  total  mass  source  to  cell  i 
Q PBC  is  the  fluid  mass  source  rate  due  to  the  specified  pressure,  and 

v.[L’s]  is  the  pressure-based  conductance  for  the  specified  pressure  source  in 
cell  i.  The  conductance  is  set  to  zero  for  nodes  at  which  pressure  is  not 
specified,  and  to  a  high  value  at  nodes  where  pressure  is  specified. 

Bv  combining  and  rearranging  the  evaluations  of  approximate  terms  of 
(4.39),  the  following  weighted  residual  relation  is  obtained: 

1  dr  NN 

AF.  j^i  ♦  CF.  T7i  +  Z  p.(t)  BF .  .  +  v.p.  =  Q.  +  v .  pnr.  +  qTk,  +  DF. 
i  dr  l  dt  i  11  iKi  i  l  BC .  IN.  l 

1=1  -  li 


i  =  1 , NN 


where : 


(s  pS  +  ep  §^wY  V 
V  w  op  dp  /i  i 

K  sS)i  vi 

I !  )[(-l)(— )]■-*)}  ■  v“i  “ dv 


nmwnm 


Vw  B  dy  dx 


(4.52) 


(4. 53) 


(4.54) 


(4.55) 


(4.56) 


The  only  integrals  requiring  Gaussian  integration  are  BF^  and  DF^ .  Note  that 
these  are  evaluated  in  SUTRA  subroutine  ELEMEN  in  an  element  by  element  manner. 
The  other  terms  except  for  those  involving  are  evaluated  cellwise  (one  for 
each  node).  Note  that  this  is  done  by  subroutine  NODALB,  and  the  specified 
pressure  terms  are  evaluated  by  subroutine  BCB. 


Temporal  discretization  and  iteration 

The  time  derivatives  in  the  spatially  discretized  and  integrated  equation 
are  approximated  by  finite  differences.  The  pressure  term  is  approximated  as: 


n+1  n 
dPA=  P1  ~Pi 


dt 


At 


n+1 


where 


pi  *  PiU  > 


n+1 


and 


At 


n+1 


pi(t"  *  it„*i)  ‘  Pi<'n*1) 


tntl  -  t" 


(4.57) 

(4.58a) 

(4.58b) 

(4.59) 

n+1 


The  new  or  current  time  step,  At  , ,  begins  at  time  t  and  ends  at  time  t 

n+1 

The  previous  time  step  for  which  a  solution  has  already  been  obtained  at  time 

tn  is  denoted  At  . 

n 

The  term  in  (4.52)  involving  the  time  derivative  of  concentration  or  temp¬ 
erature,  ~,  makes  only  a  very  small  contribution  to  the  fluid  mass  balance.  For 
solution  over  the  present  time  step,  At^+j ,  this  derivative  is  evaluated  using 
information  from  the  previous  time  step,  as  these  values  are  already  known: 


1.12 


du 

dt 


.  n  Un  -  lj"_1 


/ dU  .  \  _ 'X 

1  ■  (dt1;  3  At 


(4.60) 


This  approximation  gives  a  simple  method  of  accounting  for  this  small 
contribution  to  the  fluid  mass  balance. 


All  other  terms  in  (4.51)  are  evaluated  at  the  new  time  level  t 


n+1 


for 


solution  of  the  present  time  step,  At^+^ ,  except  for  the  density  in  the 


consistently  discretized 


R 


term.  The  density  is  evaluated  based  on  U(t  ), 
the  value  of  U  at  the  beginning  of  the  present  time  step.  Because  coefficients 
depend  on  the,  as  yet,  unknown  values  of  p  and  U  at  the  end  of  the  time  step, 
one  or  more  iterations  may  be  used  to  solve  this  non-linear  problem.  On  the 
first  iteration,  and  when  only  one  iteration  per  time  step  is  used,  coefficents 
are  based  on  a  projected  value  of  p  and  U. 

/At 


■r1  • « -  »rl) 


These  projections  estimate  the  p  and  U  values  at  a  node  i,  p^r01  and  lRUJ,  at 
the  end  of  the  present  time  step,  At^+j,  based  on  linear  extrapolation  of  the 
two  previous  values  of  p  and  U.  All  p  and  U  dependent  coefficients  (except  pg) 
in  (4.52)  through  (4.56)  are  estimated  at  time  level  tn+* .  These  coefficient 
values  are  based  on  the  most  recent  values  of  p  and  U,  be  they  projections  or 
solutions  to  the  previous  iteration.  Iterations  end  when  the  maximum  change  in 
p  and  U  at  any  node  in  the  mesh  falls  below  user-specified  criteria  of  absolute 
change  in  p  and  U. 


(4.61) 

(4.62) 
,proj 


1 1  3 


The  weighted  residual  relations  (4.52)  may  thus  be  written  in  a  form  which 
allows  for  solution  of  pressures  at  nodes,  ,  at  the  end  of  the  present  time 
step: 


ACn+l 

,AF. 


/  i  \  n+1  ::  n+l  n+1  n^ 

I  — - Ip.  +  >  p .  BF .  .  +  v .  p . 

\At  .  /  *i  .  ,  i  ij  i  Fi 

v  n+1'  j“l  J 


(4.63) 


+  DF<n+1)* 

l 


/AF?+1 


(sir)-;  +«1)(f1)n 


i  =  1 , NN 

where  the  superscript  involving  (n)  or  (n+1)  indicates  level  of  time  evaluation. 
The  term  with  level  (n+1)*  indicates  that  the  (pg)  term  is  evaluated  at  the  (n) 
time  level  on  the  first  iteration,  and  at  the  most  recent  level  on  subsequent 
iterations.  The  other  coefficients  are  evaluated  at  the  (n+1)  time  level  by 
projection  on  the  first  iteration,  and  at  the  most  recent  level  on  subsequent 
iterations . 


Boundary  conditions,  fluid  sources  and  sinks 

Specified  pressures  are  obtained  through  the  cellwise  addition  of  a  fluid  flux. 


(see  Figure  3.7),  Q  (M/s|  with  reference  t  (4.49) 

bC  , 

1 


/n+1  n+ 1  \ 

"i  (pbc.  -  pi  ; 


(4.64) 


For  a  cell  in  which  v  is  specified  as  a  large  number,  this  flux  term  dominates 

the  fluid  mass  balance  and  p^t^  -  p?+\  achieving  a  specified  pressure  at  the 

BC  ^  1 

node  representing  cell  i.  Note  that  specified  pressure  may  change  each  time  step 


For  cells  in  which  pressure  is  not  specified,  \\  is  set  at  Hero,  and  no  fluid 
is  added  to  the  cell  by  (4.64). 

Both  fluid  sources,  and  fluid  inflows  across  region  boundaries, 

q^*  ,  are  specified  cellwise.  They  directly  add  fluid  mass  to  the  node  in 
i 
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cell  1.  Thus,  fluid  sources  and  boundary  inflows  are  indistinguishable  in  the 


model.  Fluid  sources  and  flows  across  boundaries  are  both  accounted  for  by  the 


vector  in  SUTRA,  and  are  referred  to  as  fluid  sources.  Thus  the  term, 

q ,  in  (4.63)  may  be  dropped  and  the  definition  of  may  be  generalized 

to  include  the  boundary  flows. 

The  form  of  the  discretized  fluid  mass  balance  implemented  in  SUTRA  is  as 
follows : 

NN 


_( n+1  )* 


r/AFi 

1  .  RFn+1 

»  it  1 

n+1 

"  Atn+1  ) 

1  ♦  BFtJ 

*  VijJ 

pj  " 

,„n+l 
+  (  * 

\  n  . 

K1) 1 

( dUj \n 

'Atn+1 

)  Pi  + 

+  DF 


wherein  6,.  is  the  Kronecker  delta: 

ij 


n+1  n+1 

Qi  +  ViPBCl 


i  -  1 , NN 


(4.65) 


0  if  i*j 


(4.65a) 


“ij  |1  if  i-j  , 

4.5  Numerical  Approximation  of  SUTRA  Unified  Solute  Mass  and  Energy  Balance 


The  governing  equation  representing  the  SUTRA  unified  energy  and  solute 
mass  balance  (2.52)  is  modified  by  the  addition  of  a  point  source  term  which 
arises  due  to  fluid  inflows  and  outflows  at  points  of  specified  pressure: 


0  (U)  «  I 

u  l 


cS  pc  +  ( 1-e )p  c 
w  w  s  s 


+  eS  pc  v-VU 
w  w-  - 


V  '  |PCw[eSw< °wi  +  +  (1-€)oal]  ’  -Uj 


Q  c  (U  -  U)  -  cS  py*  U  -  (l-e)p  y?  U  -  eS  pyW  -  (l-e)p  yS 
pw  wl  sis  w  o  so 


-  QPBCcw(I,BC  -  ")  •  0 


(4.66) 


The  last  term  is  the  solute  mass  or  energy  source  due  to  fluid  inflow  at  a  point 

3 

of  specified  pressure,  Q  ^  [M/L  -s]  is  the  mass  fluid  source  rate  given  by 

(4.51),  and  U  is  the  concentration  or  temperature  of  the  flow.  For  outflow, 

BC 

U  *  U,  and  the  terms  goes  to  zero.  Relation  (4.66)  is  numerically  approximated 
BC 

in  the  following  sections. 


Spatial  _i ntegrat ion 

When  the  equation  for  0  (U)  in  (4.66)  is  approximated  through  nodewise, 
elementwise  and  cellwise  discretizations,  it  no  longer  exactly  equals  zero.  The 

A 

approximate  equation,  0^(U),  equals  a  spatially  varying  residual,  R^ix.y.t), 
as  shown  in  (3.8).  A  weighted  residual  formulation  may  be  written  as: 

r  A  - 

/  0  (U)  W.(x,v)  dV  =  0  i  *  1  ,NN  (4.67) 

J  u  1 

V 


where  W.(x,v)  is  the  weighting  function,  chosen  to  be  either  the  basis  function, 
<(>Jx,y)  or  the  asymmetric  weighting  function,  uk(x,v),  depending  on  the  term 
of  the  equation.  Relation  (4.66)  is  discretized  and  the  approximation  is 

A 

substituted  for  0  (U)  in  (4.67).  The  resulting  set  of  integral  terms  is  eval- 
u 

uated,  one  term  at  a  time,  in  the  following  paragraphs. 

The  first  term  is  an  integral  of  the  temperature  or  concentration  time 


deri vat ive : 


A 

+  (  1  -  f  )  p  c 

s 


<t) .  (  x ,  y ) 


dV 


(4.68) 


where  the  term  in  braces  is  discretized  cellwise,  and  the  weighting  function  is 
the  basis  function,  (written  in  global  coordinates).  As  the  term  with  a  carat 
in  braces  has  constant  value  over  a  cell,  i,  the  integral  contains  only  the 
basis  function  and  equals  the  cell  volume,  V ^ ,  according  to  (3.15).  Thus  the 
t  e rm  i s : 
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[eS  pc 
w  w 


+  ( l-e)p  c 
s  s 


1 

Ji  at1 


(4.69) 


The  second  integral  is: 


/  ^eS^pc^v-VU^  io^(x,y)  dV 


(4.70) 


where  the  asymmetric  weighting  function  is  chosen  to  allow  the  use  of  'upstream 
weighting'  for  this  term  representing  advective  transport.  'Upstream  weighting' 
is  intended  for  use  only  when  the  finite-element  mesh  has  been  designed  too 
coarse  for  a  particular  level  of  dispersive  and  advective  transport.  The 
asymmetric  function  adds  dispersion  in  an  amount  dependent  on  element  length 
in  the  flow  direction.  As  a  result,  it  changes  the  parameters  and  thus  changes 
the  physics  of  the  problem  being  solved.  This  term  is  written  in  general  to 
allow  upstream  weighting,  but  simplifies  to  weighting  with  a  basis  function  when 
upstream  weight  (UP  in  (4.23)  and  (4.24))  is  set  to  zero.  Thus,  in  order  not  to 
alter  the  physics  for  most  simulation  problems,  this  term  will  have  symmetric 
weighting . 

The  coefficients  in  this  term  (except  velocity)  are  evaluated  at  each 
Gauss  point  and  are  represented  depending  on  nodewise  discretization  of  p  and 
U.  Porosity  is  discretized  nodewise.  Nodewise  discretizations  of  e  and  U 
are  written: 


e(x,y)  *  c  ■  t  ♦i(x,: 


(4.71) 


:,y,t)  =  Vt>  Vx,3 


(4.72) 
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The  velocity  is  evaluated  at  each  Gauss  point  during  numerical  integration 


in  a  particular  way  that  depends  on  consistent  discretization  of  Vp  and  pg  terms 
in  Darcy's  law.  This  consistent  approximated  velocity  is  denoted  v.  Thus  the 
term  (4.70)  is  evaluated  as: 


Uj<t)  J  j  j^e  (SWP^  cw  Y  '  wi<x>y)  B(x,y)  dy 


(4.73) 


wherein  B(x,y)  is  the  nodewise-discretized  mesh  thickness  (4.47).  Specific 

heat,  c  ,  is  a  constant, 
w 


The  third  term  of  (4.67)  is: 


where  the  carat  refers  to  the  entire  terms  in  braces.  The  first  term  represents 

the  diffusive/dispersive  flux  of  solute  mass  or  energy  out  across  a  system  boundary 

in  the  region  of  node  i.  This  term  is  denoted,  .  An  influx  would  be 

”^0(!T  °r  ^IN  '  ^he  8econc*  *re^1,,  is  based  on  nodewise  discretization  of  U. 

I  i 

The  coefficients  p  and  S  are  evaluated  at  Gauss  points  based  on  nodewise  dis- 

w 

crptization  of  I!  and  p.  Porosity,  r  is  discretized  nodewise  as  in  (4.71),  and 

c  ,  o  and  a  are  constants.  The  dispersion  tensor,  D,  is  evaluated  at  each 
w  w  s 


Gauss  point  according  to  equations  (2.38)  through  (2.40b).  Velocities  used  in 


this  evaluation  are  the  consistent  values,  y,  and  dispersivities ,  and  a 


are  discretized  elementwise  except  that  is  evaluated  at  each  Gauss  point 
for  the  anisotrtopic  media  model.  The  approximated  D  is  denoted,  D  Thus, 


terra  (4.74)  is  evaluated  as: 


'  ?IN.  +  %vi (t)/  i  lpcwleSv(°wi  +  s) +  <1-E>  B<*-y>  dy  dx 

x  y 

(4.76) 

The  remaining  terms  in  (4.67)  are  discretized  cellwise  with  the  basis 


function  as  the  weighting  function: 


A 


‘  I  [Vw(l,A'U)J  *i(x’y)  dV  =  "  QiCw(UI  '  Ui) 


(4.77) 


A 


-  ,/[Evri  uJ  dv  ■  -  I'V’il  Vi 

\r  ^ 


(4.78) 


A 


-  j  [(l-e)parj  USJ  ^(x,y)  dV  «  -  [(l-e)P8rJ  uj ^  (A'79> 


w  *  s  I  „ 

eS  pr  +(l-e)pr|4».(x,y)dV»-|eSpy  +  (  1-e )p  y 

^  soil  1 


w  o 


l' 


w  o 


'ojjl 


(4.80) 


A 


’  I  lQPBCCv,(liBC  '  U)J  dV  “  -  VCv(UBC(  •  l'i) 


(4.81) 


V 

where : 


Q  ■  v 
dC  . 

l 


i(PBC.  '  Pi) 


(4.82) 


and : 


NN  ,g 


j.  m 
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the 


Q. 


(4.83) 


The  relation,  (4.79),  is  non-zero  only  for  solute  transport  and  the  value  of  Ue 
is  given  for  solute  trasport  by  the  adsorption  isotherms  in  the  form: 


U  *  C  “  stC  +  s 
s  s  L  R 


(4.84) 


where  s^  and  s^  are  defined  in  section  4.7,  "Temporal  Evaluation  of  Adsorbate 

w  s 

Mass  Balance."  In  the  above  cellwise  relations,  c^,  pg,  y^,  and  y^  are  constant, 
w  s 

and  y  ,  y  ,  s, ,  and  s_  may  vary  cellwise  and  with  time. 

0  o  L  R 

By  combining  and  rearranging  the  evaluations  of  integrals  in  (4.67)  and  the 
definition  (4.84),  the  following  NN  spatially  discretized  weighted  residual  re¬ 
lations  are  obtained: 


r,  77i  +  y  U.(t)  DT..  +  y  U.(t)  BT.  .  -  (GT.  +  G  TL.)  U,(t)  +  Q.c  U.(t) 
1  dt  j«i  J  1J  jti  J  ij  i  s  l  i  w  i 


+  QBC.Cw  Ui(t)  “  Vw°i  +  %C.CwUBC.  +  V  +  ETi  +  GsTRi 
x  x  l  i 


(4.85) 


i  -1 ,NN 


where : 


AT,  *  I  eS  pc  +  (l-e)p  c  I.  V. 
i  |^ww  ssjii 


(4.86) 


DTij  *  / /[e(Swp)cw^*'  -<t>j]  “i  B  dy  dx 


(4.87) 


”W/W  eS^a^  +  +  (l-E)oslj-  B  dy  dx 


(4.88) 


CT1  •  K  »  ’I),  vi 


(4.89a) 
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G  TL.  -  I  ( l-£  ) p  r f  S  I  V 
S  l  L  S  1  LJ  i 


(4.89b) 


(.  «  I  (  1-e  )p  y 
1  L  s 


1  vi 


(4.89c) 


ET.  =  eS  py"  +  (1-e) 
i  I  w  o 


P  7S  I  V, 
s  ol.  1 


(4.90) 


The  only  integrals  requiring  Gaussian  integration  are  DT_  and  BT^ .  Note  that 

these  are  evaluated  in  SUTRA  subroutine  ELEMEN,  in  an  element  by  element  manner. 

The  remaining  terms  that  do  not  involve  Q_,  are  evaluated  cellwise  by  SUTRA  sub- 

dL. 

routine  NODALB.  Also  note  that  the  flux  terms  arising  from  specified  pressure 

(those  with  Qn_)  are  evaluated  by  subroutine  BCB. 
dL 


T e mporal  discretization  and  iteration 

The  time  derivative  in  the  spatially  discretized  and  integrated  equation 
is  approximated  by  finite  differences: 


un+1  -  un 

i  i 


(4.91) 


where : 


lyt") 


(4.92a) 


U,(tn  +  At  )  -  UJ(tT1+1) 

i  n  l 


(4.92b) 


All  terms  in  (4.85)  are  evaluated  at  the  new  time  level,  t  ,  except  the 
velocity  in  (4.87)  and  the  dispersion  tensor  in  (4.88)  which  involves  velocity 
are  lagged  on  the  first  iteration.  Because  coefficients  depend  on  the  yet 
unknown  values  of  p  and  U  at  the  end  of  the  time  step,  one  or  more  iterations 
may  be  used  to  solve  this  non-linear  problem.  On  the  first  iteration,  and  when 
only  one  iteration  per  time  step  is  used,  coefficients  are  based  on  a  projected 
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value  of  p  and  l  as  given  by  (4.61)  and  (4.62).  On  subsequent  iterations 
coefficients  are  based  on  the  most  recent  value  of  p  and  II.  Iterations  end 
when  the  convergence  criteria  are  satisfied. 


On  the  first  iteration,  and  when  only  one  iteration  per  time  step  is  used, 


the  velocities  are  evaluated  based  on  pn ,  b'n  ^  and  pn  This  is  because  the 

i  t  l 


pressure  gradient  in  the  velocitv  calculation,  V  p ri ,  is  based  on  pressures  cai- 

n- 1 


dilated  when  the  fluid  density  was  p  -  On  subsequent  iterations  velocities 
are  calculated  using  the  pressure  solution  for  the  most  recent  iteration  together 
with  the  densities  resulting  from  the  previous  iteration  upon  which  the  most  re- 
cent  pressure  solution  was  based.  No  spurious  velocities,  which  arise  from  mis¬ 


matched  p  and  p,  are  generated  this  wav.  The  flux  term,  Q  ,  arising  from  the 


specified  pressures  is  evaluated  on  the  first  iteration  at  the  beginning  of 


the  time  step  in  terms  of  p"  and  p'^.  .  On  subsequent  iterations,  it  is  based 

.  *  n+1 

on  the  most  recent  pressure  solution  and  p^  . 

'  i 


The  relations  (4.8'>)  mav  thus  he  written  in  a  form  which  allows  for  solu- 


,n+ 1 


t ion  of  concentration  or  temperature  at  nodes,  10  ,  at  the  end  of  the  present 


t  ime  si  t'p: 
..let  1 


fe) 
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The  (ntl )*  level  indicates  that  velocity  and  t)  are  evaluated  on  the  first 

B<. 


iter.it  ion  at  the  t  ime  step  (n)  and  on  subsequent  iterations,  at  1  hi'  most 


Integrals  and  R^  are  exactly  analogous  If:  x»r,  y«z ,  and 

B(  x,v)  *  2nr  (5.9) 

Thus,  bv  a  simple  redefinition  of  coordinate  names,  and  by  setting  the  mesh 
thickness,  B,  at  each  node,  equal  to  the  circumference  of  the  circle  it  would 
sweep  out  when  rotated  about  the  r“0  axis  of  the  cylinder  ( B-j “2xr;£ ) ,  the 
SUTRA  simulation  is  converted  exactly  to  radial  coordinates.  Figure  5. 1 
shows  a  mesh  and  the  volume  it  sweeps  out  when  in  radial  coordinates.  Each 
element  becomes  a  three-dimensional  ring  when  used  in  radial  coordinates. 

5 .  i  Pinch  Nodes 

Pinch  nodes  are  employed  to  ease  mesh  design  when  large  changes  in  the 
density  of  elements  are  desired  over  relatively  short  distances.  See  Figure 
5.2,  where  pinch  nodes  are  indicated  by  open  nodal  dots.  This  would  aid  in 
design  of  a  mesh,  for  example,  in  which  a  large  model  region  is  required  in 
order  to  properly  simulate  the  ground-water  flow  system.  However,  only  a  small 
portion  of  this  region  need  be  simulated  with  transport.  The  fine  mesh  required 
in  the  transport  region  ran  be  quickly  coarsened  to  the  region  where  only  flow 
is  of  interest. 

Unfortunately,  use  of  pinch  nodes  tends  to  increase  the  band  width  of  the 
simulation  problem  although  it  can  significantly  decrease  the  number  of  nodes 
in  a  simulation.  Thus  with  a  band-width  matrix  equation  solver,  as  employed 
by  SUTRA,  the  use  of  pinch  nodes  in  a  mesh  does  not  always  lead  to  an  advantage 
of  decreased  computational  time.  The  pinch  node  option  is  included,  however,  as 
the  solver  Is  modular  and  may  be  replaced  by  non-band-width-dependent  methods. 


and  k  is  given  by  (4.45).  The  result  is: 


,  L  ,  L  2„  .  L  .  2 

k  “k  cos  0  +  k  ,  sin  0 
xx  max  min 


( 5. 5a) 


.  L  .  L  ,  2„  ,L  2„ 

k  *  k  sin  9  +  k  cos  0 
vy  max  min 


(5.5b) 


k'"  =  k^  *  (k  -  k  )  sin0  cos9 

xv  vx  max  min 


( 5. 5c) 


5.2  Radial  Coordinates 


SUTRA  is  written  in  terms  of  two-dimensional  Cartesian  coordinates  x  and 
V.  In  general,  the  two-dimensional  numerical  methods  are  applied  to  Cartesian 
forms  of  the  governing  equations;  however,  because  the  mesh  thickness,  Bj  ,  is 
allowed  to  vary  from  node  to  node,  radial  coordinates  (cvlindical  coordinates), 
r  and  z  are  an  exact  alternate  coordinate  set. 

A  function,  f(r,z),  of  radius  r,  and  vertical  coordinate  z,  is  integrated 
over  a  cylindrical  volume  as  follows: 


•  ■///  f(r,z)  r  d9  dr  dz 


(5.6) 


z  r  0 


Assuming  symmetry  with  respect  to  angular  coordinate  9  (f(r,z)  does  not  depend 
on  0),  the  integral  becomes: 


w/ 


f ( r , z  )  ( 2xr  )  dr  dz 


(5.7) 


This  integration  may  be  compared  with  a  general  integration  of  a  function 
g(x,v)  in  Cartesian  coordinates  as  it  is  carried  out  in  SUTRA  methodology: 


g( x , v  )  B( x , v  )  dx  dv 


(5.8) 


Chapter  5 

Other  Methods  and  Algorithms 

5.1  Rotation  of  Permeability  Tensor 


The  aquifer  permeability  may  be  anisotropic  (as  discussed  in  section  2.2 
under  the  heading  "Fluid  flow  and  flow  properties,"  and  may  vary  in  magnitude 
and  direction  from  element  to  element  (as  shown  in  (4.45)).  The  permeability 
in  each  element  is  completely  described  by  input  data  values  for  k^n 

and  0,  the  principal  permeability  values  and  the  direction  in  degrees  from  the 
global  +x  direction  to  the  maximum  direction  of  permeability.  The  evaluation 
of  integrals  (4.55)  and  (4.56)  as  well  as  the  velocity  evaluation  (4.97)  require 
the  permeability  tensor  components  in  global  coordinates  as  given  by  (4.45). 

Thus  a  rotation  of  the  tensor  is  required  from  principal  directions  (xp,xm)  to 
global  directions  (x,y),  as  shown  in  Figure  2.2. 

The  rotation  is  given  by: 

kL  -  JT  kL  JT  (5.1) 


where 
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The  coefficient,  is  defined  as: 

i 


n+1  n+1 

c  *  te , 
s  .  1  . 

l  l 


X ,  P 
1  o 


(1  *  X,  P  cP”))2 
2  o  l 


(4.112b) 


X1  po 


(•  *  Vo cr1)2 


(4.112c) 
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(4.1 12d) 


The  first  term  in  (4.112a)  is  soived  for  on  each  iteration  and  the  second  term  is 
treated  as  a  known.  In  the  above  four  relations,  Cpr°^  is  based  on  a  projection 


for  the  first  iteration  on  a  time  step,  and  is  the  most  recent  value  of  on 


subsequent  iterations  for  the  time  step. 


Finally,  for  Langmuir  sorption  the  form  used  for  the  temporal  evaluation 
preserves  dependence  ori  a  linear  relationship  to  C..  However,  the  linear  rela¬ 
tionship  is  appropriate  onlv  at  low  solute  concentrations.  At  high  concentrations 
the  adsorbate  concentration  approaches  (Xj/x.,).  Therefore,  two  temporal  approx¬ 
imations  ate  combined,  (one  for  low  C,  and  one  for  high  C)  in  a  manner  depending 
on  t  he  magnitude  of  concentration.  When  (i,p  c)(<l,  the  following  temporal 
approximation  for  low  values  of  C,  referred  to  as  C° ,  is  employed: 
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When  ( \0pC)>>l  ,  the  following  temporal  approximation  for  high  C,  C  is  employed: 


c"  - 

S  \X-,> 


1  - 


1  +  X0P  c 
2  o 


pro) 


(4.109) 


Thus  (  may  be  defined: 
s  . 
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, ,n+l  ,,n+l  <*> 
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where  the  weights  W  and  W  ,  are: 
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(l  ♦  x,  p  cproi) 


(4.111a) 


W  =  1  -  W 
a  co 


(4.111b) 


Bv  substituting  (4.108),  (4.109),  (4.111a),  and  (4.111b)  into  (4.110),  the 


following  temporal  evaluation  of  C 


,n+ 1 


is  obtained  after  algebraic  manipulation: 


For  Fruendlich  sorption,  the  adsorbate  concentration  is  split  into  a 


product  of  two  parts  for  temporal  evaluation.  One  part  is  treated  as  a  first 
order  term  as  is  linear  sorption.  This  part  is  evaluated  strictly  at  the  new 
time  level  and  solved  for  on  each  iteration  or  time  step.  The  remaining  part 
is  evaluated  as  a  known  quantity,  either  based  on  the  projected  value  of  at 
the  end  of  the  time  step  on  the  first  iteration,  or  based  on  the  most  recent 
solution  on  any  subsequent  iteration. 
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where  the  coefficient,  r  ,  is  evaluated  from  the  projected  or  most  recent  value 

li 


of  C^,  depending  on  the  iteration. 


at  “  4  LV  p2  “  pl  ;  V'nj  +  \p3  ’  p4  )v*v\  (4-104) 


<cg)e  '  HO’i'e,  *  c2gt2)  (•-")  *  (»3«ej*  "*«(,)  (■♦")  ]  <4-105> 

The  terms  in  parentheses  preceeding  the  terms  containing  n  all  have  a  constant 
value  for  the  element,  and  thus  the  approximations  have  consistent  spatial 
dependences . 


4.7  Temporal  Evaluation  of  Adsorbate  Mass  Balance 


The  terms  in  the  unified  energy  and  solute  mass  balance  equation  which 
stem  from  the  adsorbate  mass  balance  require  particular  temporal  evaluation  be¬ 
cause  some  are  non-linear.  The  following  terms  of  relation  (4.93)  are  evaluated 
here:  AT^+1,  GT™+*,  and  ET^+1 .  For  solute  transport,  the  coefficient,  cg  ,  in 

ATn+*  (4.86)  becomes  according  to  (2.52b).  The  relation  which  defines  r. 

1  *i 

is  given  by  either  (1.34c),  (1.35c),  or  (1.36c)  depending  on  the  sorption  iso¬ 
therm.  The  variable,  U°+* ,  is  expressed  in  terms  of  the  concentration  of  adsor- 
+  i  9i 

bate,  C  ,  in  a  form  given  by  (4.84).  The  parameters  in  (4.84),  s  and  s  , 

S^  L  K 

}  are  defined  in  this  section  and  are  based  on  either  (1.34a),  (1.35a)  and  (1.36a) 

depending  again  on  the  sorption  isotherm.  The  temporal  approximations  of  these 
parameters  are  described  below  for  each  isotherm. 

For  linear  sorption,  all  terms  and  coefficients  related  to  the  adsorbate 
mass  are  linear  and  are  evaluated  at  the  new  time  level  and  strictly  solved  for 
at  this  level: 


,n+l 
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„n+l 

<1  “o  Ci 


(4.106a) 


significance  should  be  attached  to  the  absolute  values  of  basis  function  deriva¬ 
tives,  except  that  these  happen  to  give  the  desired  consistent  approximations, 
as  is  shown  shortly- 

The  gravity  vector  components  in  local  coordinates  at  a  point  in  the  ele¬ 
ment  are  obtained  from  the  global  gravity  components  as: 


where 


is 


the  Jacobian  matrix  defined  by 


(4.25). 


The  derivatives  of  pressure  in  local  coordinates  (4.98a)  and  (4.98b),  and 
the  consistent  density-gravity  term  components  in  local  coordinates,  (4.99)  and 
(4.100),  are  transformed  to  global  coordinates  for  use  in  the  evaluation  of  the 
integrals  they  appear  in  by: 


(4.102) 


(4.103) 


where  (pg)  and  (pg)  are 
x  y 


the  consistently  discretized  density-gravity  term 


components  in  global  coordinates,  and 
defined  by  (4.29). 

The  spatial  consistency  of  these 
their  expansions  in  local  coordinates 


[J]  1  is  the  inverse  Jacobian  matrix 


approximations  may  be  seen  by  inspecting 
For  example,  the  ^-components  are: 
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in  the  following,  a  discretization  of  the  pg  term  is  presented  which  is 
presented  which  is  consistent  with  the  discretization  of  Vp  in  local  <001- 
dinat.es,  and  then  both  Vp  and  pg  are  transformed  to  global  coordinates 
while  maintaining  consistency. 

The  pressure  gradient  within  an  element  in  local  coordinates  is  defined  in 
terms  of  the  derivatives  with  respect  to  the  local  coordinates: 
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The  summations  may  be  expanded  and  written  in  detail  by  reference  to  relations 
(4.9)  through  (4.12)  and  (4.1)  through  (4.4). 

A  local  discretization  of  pg,  with  a  spatial  functionality  that  is  con¬ 
sistent.  with  the  local  pressure  derivatives,  (4.98a)  and  (4.98b)  is: 
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(4.99) 


(pg)<£,n)=X  p.p.  I  tt1 
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(4.100) 


where-  the  vertical  bars  indicate  absolute  value,  p^  is  the  value  of  p  at  node 
i  in  the  element  based  on  the  value  of  U  at  the  node  through  relation  (2.3)  or 
(2.4),  g  i s  the  C-component  of  g  at  node  i,  and  g  is  the  n-component  of  g  at 

S  ni 

node  i.  The  eight  gravity  vector  componenets  at  the  nodes  in  each  element  need 
lie  calculated  only  once  for  a  given  mesh  and  mav  be-  saved.  This  discretization 
i s  robust  in  that  it  allows  both  the  density  and  (the  direction  and)  the  magni¬ 


tude  of  gravity  vector  components  to  vary  over  an  element.  No  particular 
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spurious  vertical  velocities  especially  in  regions  of  sharp  vertical  changes  in 
U.  A  consistent,  approximation  of  velocity  is  one  in  which  Vp  and  pg  are  allowed 
the  same  spatial  variability,  and  further,  are  evaluated  at  the  same  time  level. 

A  consistent  evaluation  of  velocity  is  required  by  the  transport  solution 
in  (4.87)  and  also  required  in  the  evaluation  of  the  dispersion  tensor  in  (4.88), 
where  velocity  is  required  in  each  element,  in  particular,  at  the  Gauss  points 
for  numerical  integration.  Also  a  consistent  evaluation  of  the  pg  term  is  re¬ 
quired  for  the  fluid  mass  balance  solution  in  the  integral  shown  in  (4.56).  The 
values  are  also  required  at  the  Gauss  points  in  each  element  during  numerical 
evaluation  of  this  integral. 

The  coefficients  for  calculation  of  velocity  in  (4.97)  are  discretized  as 
follows:  Permeability,  k,  is  discretized  elementwise;  porosity,  e,  is  discre¬ 

tized  nodewise.  Unsaturated  flow  parameters,  kr  and  Sw,  are  given  values 
depending  on  the  nodewise-discretized  pressure  according  to  relations  (2.8)  and 
(2.21).  Viscosity  is  either  constant  for  solute  transport  or  is  given  values 
depending  on  nodewise-discretized  temperature  according  to  (2.5). 

To  complete  the  discretization  of  velocity,  values  in  global  coordinates 
at  the  Gauss  points  are  required  for  the  term  (Vp  -  pg).  A  consistent  approxi¬ 
mation  is  presented  in  the  remainder  of  this  section  for  this  term  based  on  the 
fact  that  this  term  will  be  discretized  in  a  consistent  manner  in  global  coor¬ 
dinates  in  an  arbitrarily  oriented  quadrilateral  element  whenever  it  is  dis¬ 


cretized  consistently  in  local  element  coordinates  (£,o)-  Consistent  discretiza¬ 
tion  in  local  coordinates  is  obtained  when  the  spatial  dependence  of  —■ £  and  pg 

is  the  same,  and  when  and  pg  have  the  same  spatial  dependence.  Becaus?  the 

dO  0 

discretization  for  p(£*0)  has  already  been  chosen  to  be  bi-linear,  it  is  the 


discretization  of  the  pg  term,  in  particular,  which  must  be  adjusted.  First, 
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4.6  Consistent  Evaluation  of  Fluid  Velocity 

Fluid  velocity  is  defined  by  equation  (2.19)  as: 

1c  1c 

“  -  -  (fs^)  ■  (»<•  -  «)  u-9,> 

This  relation  strictly  holds  true  at  a  point  in  space.  In  order  for  the  rela¬ 
tion  to  hold  true  when  discretized,  the  terms  Vp  and  pg  must  be  given  the  same 
spatial  variability.  This  avoids  generation  of  spurious  velocities  which  would 
be  caused  by  local  mismatching  of  the  discretized  pressure  gradient  term  and 
density-gravity  term.  For  example,  in  a  hydrostatic  system  where  densities  vary 
spatially,  Vp  *  pg,  to  yield  a  zero  vertical  velocity.  However,  if  Vp  and  pg  do 
not  locally  cancel  because  of  the  discretization  chosen,  then  erroneous  vertical 
velocities  would  be  generated. 

Such  an  error  would  occur  over  an  element  where  Vp  is  allowed  only  a 
single  constant  value  in  a  vertical  section  of  the  element,  but  where  p  is  allowed 
to  vary  linearly  in  the  vertical  direction.  This  would  be  the  case  in  a  standard 
finite-element  approximation  wherein  both  p  and  U  vary  linearly  in  the  vertical 
direction  across  an  element.  Linear  change  in  p  implies  a  constant  value  Vp, 
while  linear  change  in  U  implies  a  linear  change  in  the  value  of  p  according  to 
(2.3)  or  (2.4).  Thus  a  standard  finite-element  approximation  over  a  bi-linear 
element  results  in  inconsistent  approximations  in  the  ve-tical  direction  for  Vp 
and  pg:  constant  Vp  and  linearly  varying  p.  This  inconsistency  generates 


where  the  carat  refers  to  the  entire  term  in  braces.  For  solute  transport,  this 
term  may  represent  molecular  diffusion  and  dispersion  of  solute  mass  across  a 


boundary.  For  energy  transport,  this  term  represents  heat  conduction  and  thermal 
dispersion  across  a  boundary.  This  heat  or  solute  flux  is  a  user-specified  value 
which  may  change  each  time  step.  If  the  term  is  set  to  zero,  it  implies  no  dif¬ 
fusion  and  no  dispersion  across  a  boundary  for  solute  transport,  or  for  energy 
transport  it  implies  perfect  thermal  insulation  and  no  dispersion  across  a  boundary 
For  an  open  boundary  across  which  fluid  flows,  this  term  is  not  automatically 
evaluated  by  SUTRA.  If  no  user-specified  value  exists  at  an  open  boundary,  then 
this  term  is  set  to  zero.  This  implicitly  assumes  that  the  largest  part  of  sol¬ 
ute  or  energy  flux  across  an  open  boundary  is  advectively  transported  rather 
than  diffusively  or  dispersively  transported.  In  cases  where  this  assumption 
is  inappropriate,  the  code  may  be  modified  to  evaluate  this  term  at  the  new' 
time  level  depending  on  the  value  of  Un+^ . 

The  form  of  the  discretized  unified  energy  and  solute  mass  balance  equation 
which  is  implemented  in  SUTRA  is  as  follows: 


_  (4.96) 

i*l ,NN 

wherein  6..  is  the  Kronecker  delta, 
ij 
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recent  level.  Other  coefficients  are  evaluated  at  the  (n+1)  time  level  by  pro¬ 
jection  on  the  first  iteration,  and  then  at  the  most  recent  level  on  subsequent 
i  terat ions . 


Boundary  conditions,  energy’  or  solute  mas s  sources  and  sinks 

Specified  temperatures  or  concentrations  at  nodes  are  obtained  numerically 
at  the  node  k  by  replacing  the  ktB  equation  in  (4.93)  by: 


,,n+l  ,.n+l 

bk  =  ubcl 

k 


(4.94) 


where  U  is  the  user-specified  value  of  U  that  node  k  is  to  have  during  time 
B('k 

step  (n+1).  The  specified  value  may  change  with  each  time  step. 

Source  boundary  conditions  for  U  arise  whenever  a  fluid  source  Q  is  spec¬ 
ified.  These  may  be  either  point  sources  of  fluid  or  fluid  flows  across  the  bound 

aries.  These  fluid  inflows  must  be  assigned  concentration  or  temperature  values, 
*n+i 

lb  ,  which  may  change  with  each  time  step.  Note  that  these  sources  are  evalu¬ 
ated  in  SUTRA  subroutine  NODALB.  Outflows  of  fluid  result  in  the  disappearance 

*n+ 1  n+1 

of  the  source  term  from  the  transport  equation  because  (lb  =  lb  )  the  sink 
and  aquifer  have  the  same  U-value. 

Source  boundary  conditions  for  U  may  arise  at  points  of  specified  pressure 

when  an  inflow  Q  occurs  at  such  a  point.  A  value  of  U  must  be  specified  for 
BC  ^ 

such  fluid  inflows  as  .  These  values  mav  change  with  each  time  step.  This 

BO  . 

1 

source  term  for  U  disappears  for  outflow  at  a  point  of  specified  pressure.  Note 
that  specified  pressure  sources  are  evaluated  in  SUTRA  subroutine  BCB. 


A  source  or  sink  at  a  boundary  due  to  diffusion  or  dispersion  appears 


,  ,  /\  > 
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A  pinch  node  is  defined  as  a  node  in  an  element  which  is  located  at.  the 
mid-point  of  an  element  side,  as  shown  in  Fjjjure_  5.J1 .  Each  element  has  only 
four  real  nodes  (at  the  corners)  and  four  basis  fuctions  associated  with  these 
nodes.  The  pinch  node  has  no  basis  function  assigned  to  it  in  the  element  in 
which  it  appears  on  an  element  side.  Values  of  variables  and  coefficients  at 
the  pinch  node  are  determined  as  the  average  of  the  values  of  the  real  nodes  at 
the  end  of  the  element  side  upon  which  the  pinch  node  resides.  Thus,  no  sources, 
sinks,  or  boundary  conditions  may  be  specified  at  a  pinch  node.  The  numerical 
solution  at  a  pinch  node  depends  entirely  on  the  two  nodes  at  the  ends  of  its 
side . 

Pinch  nodes  are  handled  by  SUTRA  as  follows:  All  elementwise  calculations 
are  carried  out  as  though  a  pinch  node  were  a  real  node.  In  fact,  each  pinch 
node  appears  as  a  corner  node  in  one  or  more  elements.  No  special  treatment  is 
given  pinch  nodes  through  the  entire  matrix  assembly  process,  and  they  enter  the 
matrix  through  usual  elementwise  and  nodewise  calculations. 

Just  before  solution  of  the  matrix  equation,  pinch-node  conditions  are 
imposed  on  the  matrix  equation.  For  the  pinch  node,  k,  the  right  hand  side  of 
the  equation  for  node  k  is  set  to  zero.  The  row  of  the  final  coefficient  matrix 
for  node  k  is  changed  to  all  zeroes,  except  for  two  coefficients.  These  are  in 
the  two  matrix  columns  related  to  the  nodes  at  the  ends  of  the  element  side  upon 
which  pinch  node  k  resides.  They  are  set  to  a  value,  0.50,  and  the  coefficent 
on  the  matrix  diagonal  (with  subscript,  kk )  is  set  to  a  value,  -1.0.  This  sets 
an  equation  for  pinch  node  k  as  follows: 


n+ 1  1  n+ 1  n+1  , 

\  -  7  <Pr  +  pq  > 


,n+  1 


4  (Un+1  ♦  Hn+1> 


( 5. 10a) 
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Figure  5.3 

Detail  of  mesh  with  a  pinch  node 


where  subscripts  r  and  s  refer  to  the  nodes  at  the  ends  of  the  pinch  node 
e 1 ement  side. 

Pinch  nodes  are  specified  in  the  data  set  containing  the  nodal  incidence 
list  for  elements  and  the  order  of  specification  is  related  to  the  local  element 
node  numbering  scheme  as  defined  bv  Figure  5.4. 

3.4  Solution  Sequencing 

On  anv  given  time  step,  the  matrix  equations  are  created  and  solved  in  the 
following  order:  (1)  the  matrix  equation  for  the  fluid  mass  balance  is  set  up, 
(2)  the  transport  balance  matrix  equation  is  set  up,  (3)  pressure  is  solved  for, 

A 

and  (4)  concentration  or  temperature  are  solved  for.  Both  balances  are  set  up 
on  each  pass  such  that  the  elementwise  calculations  onlv  need  be  done  once  per 
pass.  However,  SUTRA  allows  the  p  or  U  equation  to  be  set  up  and  solved  only 
every  few  time  steps  in  a  cyclic  manner  based  on  parameters  NPCYC  and  NDCYC. 
These  values  represent  the  solution  cycle  in  time  steps.  For  example,  setting 
up  and  solving  for  both  p  and  U  each  time  step  ( NPCYC *NUCYO 1 ) : 

rime  step:  1  2  1  4  4  t>  7  .  . 

,P  P  P  P  P  P  P 

so  I ve  tor : 

'l  II  ll  l  I 

or  solving  lot  p  everv  third  t  i  mi-'  st  ep  and  tor  I  each  t  me  step  (N'PCCYC='3  and 
M  f'Yt  =*=]>: 

t  i  me  step:  i  2  1  a  3  f>  7  o  w  i  0  1  1  1  2  1  1  .  .  .  . 

,P  '  P  '  ’  P  '  '  P  '  ’  P  ‘ 

SO  I  Vi*  tot  : 

't  r  i  i  i  f  r  !•  i  t  i  r  r 

Howevei ,  either  of  p  or  r  must  bo  solved  for  on  ea>  h  time  step  and  therefore 
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either  NPCYC.  or  NUCYC  must  be  set  to  one. 

For  a  simulation  wit  hi  st  eadv  state  flow,  the  sequent:  i  rip,  is: 

t  i  me  step:  0  1  2  '34  5  .  .  .  . 

|(1 . 

solve  tor: 

r  r  i1  r  u  r 

For  steady  flow  and  transport: 

t  i me  st  ep :  0  I 

solve  for  :■[*’ 

I  •  li 

The  only  exception  to  the  cvcling  is  that  tor  non-st.eadv  cases,  both  unknowns 
are  solved  for  on  the  first  time  step,  as  shown  in  the  case  for  NPCYC* 3,  NUCYC*  1 

above . 

It  is  cdnipul  at  iotial  Iv  advantageous  to  allow  a  matrix  equation  solution 
tot  U  bv  liai-k-subst  i  t  ut  ion  onlv,  savin*  both  equation  construction  and  matrix 
decomposition  steps.  This  is  begun  on  the  second  time  step  solving  for  U  only 
after  the  step  on  which  hot  it  p  and  f  are  solved  for.  In  order  to  do  this  the 
matrix  coefficients  including  the  time  step  must  remain  constant.  Thus,  non- 
I  i near  variables  and  I  1 u i d  velocity  are  held  constant  with  values  used  on  the 
I i t st  t i me  step  for  C  after  tie-  step  for  p  and  f.  For  example,  when  NPCYC* 1 , 
Nl'CYf =b: 

t  itne  step:  1  1!  1  4  >  fi  1  8  ')  10  11  I  T 

,P  '  1  ‘  ‘  P  ’  P 

solve  for: 

I  I,  F  V  F  I  F  F  II  I  I' 

|  c  onst  ant  valttesl  I  <  oust. nil  values  | 

|  track  I  |  track  | 

|  subs t  i t u t  e |  j  substitute  | 


V 


A  pressure-only  solution  may  be  obtained  with  NPCYOl  ,  and  NUCYO(  number 
larger  than  the  number  of  time  steps).  Note  that  p  and  U  solutions  must  be 
set  to  occur  on  time  steps  when  relevant  boundary  conditions,  sources  or  sinks 
are  set  to  change  in  value. 

5.5  Velocity  Calculation  for  Output 

The  velocities  employed  in  the  numerical  solution  of  fluid  mass,  and  solute 
mass  or  energy  balances  are  those  calculated  at  the  Gauss  points  in  each  element 
(as  described  in  section  4.6  "Consistent  Evaluation  of  Fluid  Velocity.")  For  pur¬ 
poses  of  output,  however,  only  one  velocity  value  per  element  is  made  available. 
This  is  the  velocity  at  the  element  centroid  as  shown  in  Figure  5.5.  The  centroid 
is  defined  as  the  point  in  the  element  where  the  lines  connecting  the  mid-point  of 
opposite  sides  intersect. 

The  velocity  at  the  centroid  of  an  element  is  calculated  by  taking  the 
average  of  the  four  global  x-components  of  velocity  at  the  Gauss  points,  as 
well  as  the  average  of  the  four  global  y-components  of  velocity  at  the  Gauss 
points,  and  by  constructing  a  velocity  vector  from  these  averaged  components. 

This  process  gives  the  "true"  velocity  at  the  centroid  that  would  be  calculated 
employing  the  consistent  velocity  approximation  evaluated  at  this  point  in  the 
element.  This  may  be  seen  by  setting  in  (4.104)  and  (4.105). 

5.6  Budget  Calculations 

A  fluid  mass  and  solute  mass  or  energy  budget  provides  information  on  the 
quantities  of  fluid  mass  and  either  solute  mass  or  energy  entering  or  exiting 


the  simulated  region.  It  is  not  intended  as  a  check  on  numerical  accuracy,  but 
rather  as  an  aid  in  Interpreting  simulation  results. 

The  fluid  budget  is  calculated  based  on  the  terms  of  the  integrated- 
discretized  fluid  mass  balance,  (4.52),  as  approximated  in  time  according  to 


(4.65).  After  the  solution  to  a  time  step  makes  available  p”+^  and  ,  the 


time  derivatives  of  these,  ^i  and  4~i ,  are  calculated  according  to  (4.57)  and 

at  at 


(4.91 ) . 

The  total  rate  of  change  in  stored  fluid  mass  in  the  region  due  to 
pressure  changes  over  the  recent  time  step  is: 

NN 


5T  <M/81 


(5.11) 


i-1 


where  AF^  is  defined  in  (4.53),  and  the  total  rate  of  change  in  stored  fluid  due 


to  changes  in  concentration  or  temperature  is: 
NN 


CF 


n+ 1  dUi 


dt 


[N  Is. 


(5.12) 


i-1 


where  CF^  as  defined  in  (4.54). 


The  sum  of  (5.11)  and  (5.12)  gives  the  total  rate  of  change  of  fluid  mass  in 
the  entire  region. 


,n+l 


Fluid  sources,  ,  may  vary  with  time  and  those  that  do  vary  are  reported 


by  the  budget  at  each  source  node.  The  sum  of  Q 


n+1 


NN 


_n+ 1 


iM/sj 


(5.13) 


i-1 


gives  the  total  rate  of  fluid  mass  change  due  to  all  sources  and  sinks  of 


fluid  mass,  as  well  as  to  specified  fluxes  across  boundaries.  Fluid  sources 


,n+ 1 


due  to  specified  pressure  conditions,  Q  ,  usually  vary  with  time  and  are 

BC1 
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also  reported  by  the  budget  at  each  node.  This  source  is  calculated  at  each 


node  from  (4.64).  The  sum  of  Q 


n+ 1 

BC  . 


NN 


i-1 


n*1 

^BC  , 


[M/s. 


(5.14) 


gives  the  total  rate  of  fluid  mass  change  in  the  entire  region  due  to  inflows 
and  outflows  at  all  specified  pressure  nodes. 


The  sum  of  (5.13)  and  (5.14)  should  be  close  to  the  value  given  by  the  sum 
of  (5.11)  and  (5.12).  These  may  be  expected  to  match  better  when  iterations 
have  been  used  and  convergence  achieved,  as  the  budget  is  calculated  for  a  time 
step  with  only  one  iteration  with  the  (n+1)  time  level  values  of  non-linear 
coefficients,  and  the  solution  was  obtained  with  coefficients  based  on  projected 
values  of  p  and  U. 

The  solute  mass  or  energy  budget  is  calculated  based  on  the  terms  of  the 
integrated-discretized  balance,  (4.85),  as  approximated  in  the  time  according 
to  (4.93).  The  total  rate  of  change  in  stored  solute  mass  or  energy  in  the 
region  over  the  recently  computed  time  step  is: 


.  □  u , 

y  at"  (Ms/s  or  E/s)  (5.15) 

i-1 

where  AT"+*  is  calculated  from  (4.86)  using  ll"+*  in  all  coefficients  requiring 

a  II  value  (including  adsorption  isotherms  for  c  -  ir  ^ ) .  In  reporting  this  portion 

of  the  budget,  a  separate  value  is  given  for  the  sum  of  the  portion  stemming 

from  ( eS  pc  )  and  for  (l-t)p  c  .  The  former  sum  relates  to  rate  of  solute  mass 
w  w  s  s 

or  energy  change  in  the  fluid,  and  the  latter  relates  to  change  in  the  solid- 


immobile  portion. 


The  total  rate  of  first-order  solute  mass  production  in  the  fluid  is  cal¬ 


culated  as: 


£  ct" 


n+l  n+l 
i  Ui 


(5.16a) 


and  at  the  rate  of  first-order  adsorbate  production  is  calculated  as: 


Zc  tl"+1  un 

s  i  i 


0+1  +  G  TR"+l 
i  s  i 


(5.16b) 


where  GT .  and  G  TL,  and  G  TR.are  defined  by  4.89a,  4.89b  and  4.89c  and  all  iso- 
i  s  i  s  l 

therms  are  based  on  (l^+ * .  Fluid  and  adsorbate  rates  are  reported  separately  by 
the  budget.  These  terms  have  no  analogy  for  energy  transport.  The  tijrms  of  zero 
order  production  of  solute  and  adsorbate  mass  or  energy  production  in  the  fluid 
and  solid  matrix  are: 


£  < 


(M  Is  of  E/s 
s 


(5.17) 


where  F.Tj  is  defined  by  (4.90)  and  the  fluid  and  immobile  phase  production  rates 
are  reported  separately  bv  the  budget. 

Solute  mass  and  energy  sources  and  sinks  due  to  inflowing  or  outflowing 
fluid  mass  mav  vary  with  time  and  are  reported  bv  the  budget  at  each  fluid 
source  node  and  at  each  specified  pressure  node.  These  are  separately  summed 
for  the  entire  region: 


y  q"+ic  i>*’ 

/  j  i  w  i 


„n+l  n+l 

Q_,  c  b„„ 

'BC  w 


I M  / s  or  F/ s 
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( M  Is  or  E/ s 


(5.18) 


(5.19) 


take  on  the  user-specified  values  of  U  for  fluid  inflows. 


...  *n+l  .  „n+l 

Where  U.  and  U_„ 
i  BC . 

x 

and  the  U  value  of  the  ambient  system  fluid  for  outflows. 

These  sums  give  the  total  rate  of  change  of  solute  mass  or  energy  in  the 
entire  system  due  to  these  fluid  sources  and  sinks. 

Finallv  the  diffusive-dispersive  sources  of  solute  mass  or  energy  are 
summed  for  the  entire  system  and  are  also  reported  by  node  as  they  may  vary 
with  time: 

NN 

(M  /s  or  E/s]  (5.20) 

IN ,  s 

1 

The  sum  of  (5.16a),  (5.16b),  (5.17),  (5.18),  (5.19)  and  (5.20)  should  be 
close  to  the  value  given  by  (5.15).  These  values  may  be  expected  to  match 
best  when  iterations  have  been  used  and  convergence  achieved,  as  the  budget 
is  calculated  for  a  time  step  with  only  one  iteration  with  all  information  at 
the  (n+1)  time  level,  and  the  solution  was  obtained  using  non-linear  coefficients 
based  on  projections  of  p  and  U. 

5.7  Program  Structure  and  Subroutine  Descriptions 

SUTRA  is  structured  in  a  modular,  top-down  programming  style  that  allows 
for  code  readability,  ease  in  tracing  logic,  and  hopefully,  ease  in  eventual 
modifications.  Each  subroutine  carries  out  a  primary  function  that  is  clearly 
distinguished  from  all  other  program  functions.  User-required  program  changes 
are  limited  to:  1)  dimensioning  three  storage  arrays  in  the  main  routine,  and 


2)  coding  portions  of  a  subroutine  which  is  used  to  control  time-dependent 
sources  and  boundary  conditions  (when  they  are  used)  and  a  subroutine  which  sets 
the  unsaturated  flow  functions  when  unsaturated  flow  is  simulated.  The  code 
consists  of  approximately  3000  statements  and  includes  one  main  program  and  24 
subroutines.  The  program  is  commented  to  aid  in  tracing  logic. 

SUTRA  is  written  in  FORTRAN-77;  however,  few  structures  are  used  which  are 
not  compatible  with  FORTRAN-66.  Modifications  of  the  code  required  to  compile 
in  FORTRAN-66  would  not  be  major. 

The  code  runs  accurately  when  it  employs  "double-precision"  real  variables 
(64  bit  words  with  47  bit  mantissa)  with  a  precision  of  about  15  significant 
figures,  and  32  bit  word  integer  variables.  Should  the  code  require  modification 
to  run  on  machines  with  other  word  lengths  or  other  bit  to  byte  ratios,  the  number 
of  significant  figures  in  a  real  variable  should  be  preserved,  if  not  increased. 

Input  and  output  is  also  somewhat  modularized.  Input  is  through  Fortran 
unit  numbers  5  and  55.  Unit-55  contains  only  data  on  initial  conditions  for  a 
simulation  at  the  nodes  for  p  and  U.  Unit-5  contains  all  other  data  required  for 
a  simulation.  Output  is  to  Fortran  unit  numbers  6  and  66.  Unlt-66  receives  the 
result  of  the  final  time  step  in  a  format  equivalent  to  that  of  Unit-55,  for  later 
use  as  the  intial  conditions  file  if  the  simulation  is  to  be  restarted.  Unit-6 
receives  all  other  simulation  output  usually  to  be  printed  on  a  line  printer  (as 
shown  in  Figure  5^6). 

The  main  logic  flow  of  the  program  is  straightforward.  A  schematic  diagram 

of  the  code  is  shown  in  Figure _ 5.J7.  The  main  routine  sets  up  dimensions  and 

calls  the  main  control  routine,  SUTRA,  which  cycles  the  program  tasks  by  calling 
most  of  the  remaining  subroutines  in  sequence.  Subroutines  are  named  to  describe 
their  main  function.  A  description  of  each  subroutine  is  given  in  the  following 
sections. 
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SUTRA  Headers 


Unit  5  Input  Data, 

Data  Checks,  and 
Mesh  Plot 


Initial  Conditions 

for  Pressure  and 
Concentration  or  Temperature 


Steady-State  Results,  or 
Results  for  Time  Step  1 

(Pressure,  Concentration  or 
Temperature,  Velocities, 
Saturation,  Plots,  Budget) 


Results  for  Each  NPRINT 
Time  Steps 


Results  for  Last  Time  Step 


Observation  Results 


Figurp  5.6 

Schpmatir  of  Sl'TRA  output. 


-Description: 


PRISOL  is  the  main  SUTRA  output  routine  and  is  used  for  printing 
solutions. 

Subrout i ne  ZERO 

- Purpo se : 

To  fill  a  real  array  with  a  constant  value. 

-Called  by: 

Various  routines 


- De scription : 

ZERO  fills  an  entire  array  with  a  specified  value.  This  routine  may  be 
replaced  with  a  machine-dependent  assembly  language  routine  in  order  to  maxi¬ 
mize  efficiency. 

Subroutine  BCTIME 


-Purpose : 

A  user-programmed  routine  in  which  time-dependent  sources  and  boundary 
conditions  are  specified. 


-Called  by : 
SUTRA 


1  fv't 


-C a  1 1  s  t  o  : 

•  v'v'J 

UN  SAT 

-Rescript i on : 

INDAT2  is  the  second  major  input  data  routine.  It  reads  the  data  file, 

Unit-SS,  which  contains  initial  conditions  for  p  and  U.  The  warm-start 
section  reads  initial  conditions  and  parameter  values  of  a  previous  time  step, 
all  of  which  must  have  been  stored  by  subroutine  STORE  on  a  previous  simulation 
For  a  cold-start,  INDAT2  reads  only  initial  p  and  initial  U.  INDAT2  calls 
UNSAT  tor  calculation  of  initial  saturation  values,  on  a  cold  start. 

Subroutine  PR1S0L 


-Pu rpose : 

To  output  the  following  to  Unit-6: 

Initial  conditions 
Pressure  solutions 
Saturation  values 

Concentration  and  temperature  solutions 

Steady-state  pressure  solution 

Fluid  velocities  (magnitude  and  direction) 

-Ca  l  1  ed  by : 


SUTRA 


actual  bandwidth,  NBL,  which  is  compared  with  the  user-specified,  NBI .  IF  NBL>NBI, 
the  values  are  printed  and  the  simulation  is  halted  for  corrections. 

Subroutine  N CHECK 

-Purpose : 

To  check  that  pinch  nodes  are  neither  assigned  sources,  nor  have  specified 
p  or  U. 

-Called  by : 

SUTRA 

-Descript  ion : 

NCHECK  compares  the  list  of  pinch  node  numbers  with  the  list  of  source 
nodes,  specified  pressure  nodes  and  specified  U  nodes.  Any  matches  result  in 
a  printed  report  and  the  simulation  halts. 

Subroutine  INDAT2 


-Purpose : 

1)  To  read  initial  conditions  from  lJnit-55. 

2)  To  initialize  some  arrays. 


-Called  by: 


SUTRA 


- De a c ript ion : 

CONNEC  reads  the  nodal  incidence  list  which  describes  how  nodes  are 
connected.  The  data  is  organized  as  array,  IN,  which  contains  the  counter- 
clockwise-ordered  set  of  four  node  numbers  in  each  element  in  order  of  element 
number.  Thus  the  ninth  through  twelfth  values  in  IN  are  the  four  nodes  in 
element  number  three. 

For  an  element  with  one  or  more  pinch  nodes,  the  pinch  node  numbers  are 
entered  in  the  first  column  of  array  IPINCH,  and  the  node  numbers  at  the  ends 
of  the  side  on  which  the  pinch  node  resides  are  entered  in  columns  two  and 
three  of  IPINCH. 

IPINCH  is  used  in  subroutine  PINCH,  and  NCHECK .  IN  is  used  in  BANWID, 
ELEMEN,  and  GLOBAN. 

Subroutine  BANWID 


-Purpose : 

To  calculate  the  band  width  of  the  mesh  and  check  the  value  specified  by 
the  user. 

-Called  by: 

SUTRA 


- De  scrlptl on : 

BANWID  checks  the  array,  IN,  in  all  elements  for  the  maximum  difference  in 
node  numbers  contained  in  an  element.  This  value,  NDIFF,  is  used  to  calculate 


Ibl 


Subroutine  OBSERV 


-Purpose : 

1 )  To  save  p  and  U  values  at  chosen  observation  nodes  as  a  function  of 
the  time. 

2)  To  report  the  observations  after  the  simulation  has  been  completed. 

-Called  by : 

SUTRA 


- Description : 

On  an  initialization  call  from  SUTRA,  OBSERV  reads  observation  node  numbers 
and  observation  cycle,  NOBCYC,  in  time  steps  from  Unit-5  and  outputs  these  values. 
Every  NOBCYC  time  steps,  when  SUTRA  calls  OBSERV  after  a  solution,  OBSERV  saves 
the  current  elapsed  time,  and  p  and  U  values  at  all  observation  nodes.  When  the 
simulation  is  completed,  OBSERV  is  called  to  output  the  stored  lists  of:  time 
step,  elapsed  time,  p,  and  U. 

Subroutine  CONNEC 

-Purpose : 

1)  To  read,  output,  and  organize  node  incidence  data. 

2)  To  read,  output,  and  organize  pinch-node  incidence  data. 

-Called  by: 


I  <>() 


SUTRA 


-Description: 


BOUND  reads  and  organizes,  checks  and  prints  information  on  specified  p 
nodes  and  for  specified  U  nodes.  Pressure  information  read  is  node  number, 
pressure  value  and  U  value  of  any  inflow  at  this  node.  If  there  are  NPBC 
specified  pressure  nodes,  the  above  information  becomes  the  first  NPBC  values 
in  vectors  IPBC,  PBC  and  UBC.  Specified  U  information  read  is  node  number  and 
U  value.  If  there  are  NUBC  specified  concentration  nodes,  the  above  information 
begins  in  the  (NPBC+1)  position  of  IUBC  and  UBC,  and  ends  in  the  (NUPBC+NUBC) 
position  of  UBC  and  IUBC.  This  is  shown  below: 


,1  2  3  4  5  6  7  8  9  10  11, 
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where  x  refers  to  specified  p  information,  and  y  refers  to  specified  U  infor¬ 
mation. 

Counts  are  made  of  each  type  of  specification  and  are  checked  against 
NPBC  and  NUBC  for  correctness.  A  blank  (zero)  node  number  ends  the  data  set 
for  p  and  then  for  U.  One  blank  element  is  left  at  the  end  of  each  of  these 
arrays  in  case  there  are  no  specified  p  or  U  nodes.  The  first  NPBC  elements 
of  IUBC  and  UBC  are  blank.  These  arrays  are  used  primarily  by  subroutines  BCB 
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and  BUDGET. 


fluid  at  this  node .  If  there*  ire  NS  OP  fluid  source  nodes,  the  node  numbers 
become  the  first  NSOP  values  in  vector  IOSOP.  The  rates  are  entered  in  th.e  el¬ 
ement  corresponding  to  the  nodes  at  which  they  are  defined  in  vectors  01 N  and 
i IN  which  are  NX  long.  The  source  information  for  U  read  is  node  number  and 
solute  mass  or  energy  source  rate.  If  there  are  NS Ob  source  nodes  for  U,  the 
node  numbers  become  the  first  NSOU  values  in  IQSOb.  Vector  Q 11 N  is  NN  iong  and 
(ontains  the  source  rates  in  numerical  order  by  node.  Counts  are  made  of  each 
tvp->  of  source  and  are  checked  against  NSOP  and  N'SOl  for  correctness.  A  blank 
( zero)  node  number  ends  the  data  set  for  Q1N  and  then  for  QUIN.  One  blank  el¬ 
ement  is  left  at  the  end  of  IQSOP  and  IQSOU  so  that  a  dimension  of  one  is  obtained 
oven  when  no  source  nodes  exist.  These  arrays  are  used  primarily  in  NODALB  and 
BUDGKT. 

Subroutine  BOUND 

- Pu rpose : 

1)  To  read  specified  pressure  node  numbers  and  pressure  values,  check 
the  data,  and  print  information. 

2)  To  read  specified  concentration  or  temperature  node  numbers  and  the 
values,  to  check,  the  data,  and  print  information. 

ii  To  set  up  pointer  arrays  which  track  the  specified  p  and  U  nodes  for 
the  simulation. 


-Called  bv: 


range  surrounds  the  plotted  region.  Three  figures  of  the  solution  value  are 


plotted  at  each  nodal  location. 

PLOT  begins  by  ordering  the  nodes  by  plot  line  and  saves  the  ordered 
results  In  XX,  YY,  and  INDEX  during  the  initialization  call.  Certain  nodes 
fall  In  each  line  of  the  plot.  During  actual  plotting,  PLOT  starts  with  nodes 
in  the  top  plot  line  and  places  the  values  to  be  plotted  in  the  proper 
position  in  the  line.  The  line  is  then  printed.  This  is  repeated  for  each 
line  of  the  plot. 

S  u  b  r  o utln e  SOURCE 

-Purpose : 

1 )  To  read  source  node  numbers  and  source  values  for  fluid  mass  sources 
and  boundary  fluxes  and  for  diffusive  and  productive  U  sources,  as 
well  as  fluxes  of  U  at  boundaries;  to  check  the  data,  and  to  print 
information . 

2)  To  set  up  pointer  arrays  which  track  the  source  nodes  for  the  simula¬ 
tion. 


-Cal  led  by: 

SUTRA 

-Description : 

SOURCE  reads  and  organizes,  checks  and  prints  information  on  source  nodes 
for  fluid  mass,  and  for  sources  of  solute  mass  or  energy.  Fluid  mass  source 
information  read  is  node  number,  mass  source  rate,  and  U  value  of  any  inflowing 
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-Description: 


INDAT1  reads  a  portion  of  the  Unit-5  input  data  file,  ending  with  the 
elementwise  data  set.  Most  information  is  printed  on  the  Unit-6  data  file 
after  reading,  the  amount  of  output  depends  on  the  user  choice  of  long  or 
short  output  format.  Scale  factors  are  multiplied  with  appropriate  input 
data.  Calculations  are  carried  out  for  a  thermal  conductivity  adjustment 
and  for  determination  of  k  matrix  components  of  k  in  each  element  from  k^*, 
kmin<  and  8- 

Subroutine  PLOT 


-Purpose : 

To  provide  maps  on  printer  output  paper  of  the  finite-element  mesh, 
pressure  values  at  nodes,  and  U  values  at  nodes. 


Called  by: 


SUTRA 


-Description : 

PLOT  is  called  once  for  initialization  to  read  plot  set-up  data  from  Unit-5, 
and  to  set  up  a  plot  of  the  mesh.  PLOT  is  then  called  to  plot  the  mesh.  PLOT  is 
called  on  each  time  step  in  which  output  is  produced,  once  each  for  p  for  U,  if 
these  plots  have  been  requested. 

The  printer  plot  either  fits  the  longer  plot  direction  across  the  output 
page,  or  along  the  output  page,  depending  on  the  user  choice.  The  plot  is 
self-scaled  to  page  size,  and  different  scales  may  be  chosen  by  the  routine 
along  and  across  the  page.  A  blank  border  one  tenth  of  the  maximum  x  and  y 
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by  element  calculations  required  to  construct  the  matrix  equations  are  carried 
out  by  a  call  to  ELEMEN.  NODALB  is  called  to  carry  out  nodewise  and  cellwise 
calculations  for  the  global  matrices.  BCB  is  called  to  modify  the  matrix 
equations  for  boundary  conditions,  and  PINCHB  is  called  to  implement  any  pinch 
nodes  in  the  matrices. 

SOLVEB  is  called  for  p  and  or  U  solution  (depending  on  the  value  of  ML), 
and  if  iterations  are  underway,  convergence  is  checked.  If  iterations  are  con¬ 
tinued,  control  switches  back  to  the  step  which  shifts  new  to  old  vectors,  and 
the  sequence  of  calls  is  repeated.  If  no  more  iterations  are  required,  SUTRA 
may  call  PRISOL  and  PLOT  to  print  and  plot  results  if  these  are  requested  on  the 
present  time  step.  OBSERV  is  called  to  remember  values  at  observation  nodes  if 
any  exist.  BUDGET  is  called  if  requested  output  should  occur  this  time  step. 

If  more  time  steps  are  to  be  undertaken,  control  switches  back  to  the  step 
which  initializes  arrays,  and  continues  down  from  that  point.  If  the  simulation 
is  complete,  STORE  is  called  if  the  store  option  has  been  selected  to  set  up  a 
restart  file  in  Unit-66.  OBSERV  is  called  to  print  any  observations  that  were 
taken.  At  this  point,  control  returns  to  the  main  routine. 

Subroutine  INDAT1 

-Purpose : 

1)  To  read  simulation  and  mesh  data  from  the  Unit-5  data  file,  and  print 
out  this  information. 

2)  To  initialize  some  variables  and  carry  out  minor  calculations. 

-Called  by : 
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SUTRA 


dummy  dimensioned  to  actual  sizes  required  for  the  simulation.  Subroutine 


SUTRA  initializes  some  constants  and  directs  the  reading  of  Unit-5  input  data 
by  calls  to  INDAT1 ,  PLOT,  SOURCE,  BOUND,  OBSERV,  and  CONNEC.  It  calls  for 
band-width  calculation  (BANWID)  and  mesh  data  checks  (NCHECK).  The  call  to 
PLOT  (after  INDAT1)  also  plots  the  mesh.  Then  subroutine  SUTRA  directs  a  call 
to  INDAT2  to  read  initial  conditions  from  Unit-55,  and  calls  PRISOL  to  print 
the  initial  conditions. 

The  subroutine  decides  on  cycling  parameters  if  steady  state  pressures  will 
be  calculated,  and  calls  ZERO  to  initialize  arrays.  For  transient  pressure 
solution  steps,  time-step  cycling  parameters  are  set  and  a  decision  is  made  as 
to  which  (or  both)  of  p  and  U  will  be  solved  for  on  this  time  step.  The  decision 
depends  on  NPCYC  and  NUCYC,  and  subroutine  SUTRA  sets  the  switch,  ML,  as  follows: 

10  solve  for  both  p  and  U 

1  solve  for  p  only 

2  solve  for  U  only 

The  switch  for  steady  state  flow  is  ISSFLO,  which  is  set  as  follows: 

!0  steady  flow  not  assumed 

1  steady  flow  assumed,  before  pressure  time  step 

2  steady  flow  assumed,  after  beginning  of  pres¬ 

sure  time  step 

Note  that  time  step  number,  IT,  is  set  to  zero  for  the  steady  p  solution,  and 
increments  to  one  for  the  first  transport  time  step. 

Subroutine  SUTRA  increments  the  simulation  clock,  TSEC,  to  the  time  at  the 
end  of  the  new  time  step,  and  shifts  new  vectors  to  previous  level  vectors  which 
begins  the  time  step.  “BCTIME  is  called  to  set  time-dependent  sources  and  boundary 
conditions  if  such  exist.  ADSORB  is  called  if  sorption  is  required.  The  element 


the  bottom  of  the  appropriate  pointer  lists  in  the  call  statement  and  in  the  pointer 
calculations.  The  values  of  NNV  or  NEV  may  need  to  be  increased,  and  the  commented 
record  of  calculation  of  dimensions  of  storage  arrays  at  the  top  of  the  routine 
should  be  increased  accordingly. 

Subroutine  SUTRA 

-Purpose : 

1)  To  act  as  primary  control  on  SUTRA  simulation,  cycling  both 
iterations  and  time  steps. 

2)  To  sequence  program  operations  by  calling  subroutines  for  input, 
output  and  most  program  calculations. 

3)  To  carry  out  minor  calculations. 

-CaJ led  by : 

Main  routine 

-Cal  Is  to: 

INDAT1 ,  PLOT,  SOURCE,  BOUND,  OBSERV,  CONNEC ,  BANWID,  NCHECK ,  INDAT2 , 

PRISOL,  ZERO,  BCTIME,  ADSORB,  ELEMEN ,  NODALB,  BCB,  PINCHB,  SOLVEB, 

BUDGET,  STORE. 

-Description: 

Subroutine  SUTRA  receives  pointers  for  all  actual  arrays  and  vectors 
which  are  dynamically  allocated  space  by  the  main  routine.  These  arrays  are 


Main  Program 

” Py rP°  B e : 

1)  To  dimension  and  allocate  space  for  the  main  storage  arrays. 

2)  To  divide  the  storage  arrays  into  their  component  arrays.  (Set  up 
pointers . ) 

3)  To  start  and  stop  the  simulation. 

-Cal  1  s  _to : 

SUTRA 


-Description : 

The  main  routine  has  three  arrays  that  must  be  user-dimensioned:  RM,  RV 
and  IMV.  These  are  used  for  dynamic  storage  allocation  and  they  contain 
almost  all  of  the  values  required  for  SUTRA  simulation.  RM  contains  real 
matrices,  RV  contains  real  vectors,  and  IMV  contains  integer  matrices 
and  vectors.  The  dimensions  required  for  RM,  RV  and  IMV  are  RMDIM,  RVDIM 
and  IMVDIM,  where  the  actual  values  are  given  in  section  7.3,  "Program 
Dimensions . " 

After  reading  the  actual  Unit-5  input  data  for  the  variables  listed  above, 
the  main  routine  sets  up  pointers  which  allocate  the  correct  amount  of  space  for 
each  of  the  component  arrays  contained  in  the  storage  arrays.  The  pointers  point 
to  the  position  in  the  storage  array  of  the  starting  element  of  each  component 
array.  The  starting  elements  are  passed  to  subroutine  SUTRA  as  calling  arguments. 
Additional  arrays  which  may  he  required  by  any  modifications  to  SUTRA  are  added  at 


Figure  5.7 
SUTRA  logic  flow. 
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-Desc  ripe  ion : 


r 

r.* 

r  - 


BCTIME  is  called  on  each  time  stop  when  a  time-dependent  source  or 
boundary  condition  is  specified  bv  the  user.  it  allows  the  value  of  a  source 
or  boundarv  condition  to  be  changed  on  any  or  3li  time  steps. 

BCTIME  is  divided  into  four  sections.  The  first  section  allows  the  user 
to  specify  either  time-dependent  pressure  and  concentration  or  temperature  of 
an  inflow,  or  both,  at  specified  pressure  nodes  (  PBC  or  UBC).  The  second  sec¬ 
tion  allows  user  specification  of  time-dependent  l!  at  specified  concentration/ 
temperature  nodes.  The  third  section  allows  user  specification  of  time-dependent 
fluid  source  or  source  concentration/ temperature.  The  fourth  section  allows  user- 
specification  of  time-dependent  soLute  mass  or  energy  source. 

The  current  time  step  number,  IT,  and  current  time  (at  the  end  of  the 
present  time  step)  in  various  units  are  available  for  use  in  the  user-supplied 
programming.  The  user  may  program  in  any  convenient  way  through  data  statements, 
calls  to  other  programs,  logical  structures,  'read'  or  'write'  statements,  or 
other  preferred  methods  of  specifying  th"  time  variability  of  sources  or  speci¬ 
fied  p  and  U  conditions.  More  information  may  be  found  in  section  7.3,  "User- 
Supplied  Programming." 

Subroutine  ADSORB 

- Pu  rpo  s e : 

To  calculate  and  supply  values  from  adsorption  isotherms  to  the 
s i mu !  it  ion . 
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-Ca lied  by : 


SUTRA 


-Descript  ion : 

ADSORB  calculates  the  sorption  coefficient,  (called  CS1),  and  also 

S[  (called  SI.)  and  (called  SR)  and  SR  which  are  uspd  in  calculating)  ad¬ 
sorbate  concentrations,  Us,  depending  on  the  particular  isotherm  chosen:  linear 
Freundlich  or  Langmuir.  The  calculations  are  based  on  the  description  given  in 
section  4.7,  "Temporal  Evaluation  of  Adsorbate  Mass  Balance."  ADSORB  is  called 
once  per  time  step  for  U,  when  sorption  is  employed  in  the  simulation. 


Subroutine  EI.EMEN 


- Ru rpo  se : 

1)  To  carry  out  all  elementwise  calculations  required  in  the  matrix 
equat ions. 

-' )  To  calculate  element  centroid  velocities  for  output. 

-Ca 1  I ed  by : 

SUTRA 

-Ca I  1  s  to : 

BAS  I  S  2  ,  OI.OBAN 

- Desc  r i pf 1  on : 

F.I.EMEN  undertakes  a  loop  through  all  the  elements  in  a  mesh.  For  each 
element,  subroutine  BASIS!’  is  railed  tour  times,  once  for  each  Gauss  point. 


BASIS2  provides  basis  function  information,  and  values  of  coefficients  and 
velocities  at  each  Gauss  point,  all  of  which  is  saved  by  ELEMEN  for  use  in 
calculations  for  the  present  element. 

Gaussian  integration  (two  by  two  points)  as  described  in  section  4.3,  is 
carried  out  for  each  integral  in  the  fluid  mass  balance  ((4.55)  and  (4.56)), 
and  for  each  integral  in  the  unified  energy  and  solute  mass  balance  ((4.87)  and 
(4.88)).  The  portion  of  cell  volume  within  the  present  element  for  node  I, 

V0l,F.(  I )  ,  is  calculated  with  the  fluid  balance  integrals.  The  values  of  the 
Integrals  are  saved  either  as  four-element  vectors  or  as  four-by-four  arrays. 
Separate  (nearly  duplicate)  sections  of  the  integration  code  employ  either  basis 
functions  for  weighting  or  asymmetric  weighting  functions. 

The  vectors  and  arrays  containing  the  values  of  integrals  over  the  present 
element  are  passed  to  subroutine  GLOBAN  in  order  to  add  them  to  the  global  matrix 
equation  (assembly  process). 

Subroutine  BASIS2 

-Purpose : 

To  calculate  values  of  basis  functions,  weighting  functions,  their  derivatives 
Jacobians,  and  coefficients  at  a  point  in  a  quadrilateral  element. 


-Ca lied  by : 
EI.EMF.N 
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UNSAT 


-Deaerijpt  Ion : 

BASIS2  receives  the  coordinates  of  a  point  in  an  element  in  local  coordi¬ 
nates  ( £ , n) ,  denoted  (XLOC.YLOC)  in  the  routine.  At  this  point,  BASIS2  determines 
the  following:  values  of  the  four  basis  functions  and  their  derivatives  in  each 
local  coordinate  direction,  elements  of  the  Jacobian  matrix,  the  determinant  of 
the  Jacobian  matrix,  elements  of  the  inverse  Jacobian  matrix,  and  if  required, 
four  values  of  the  asymmetric  weighting  function  (one  for  each  node)  and  their 
derivatives.  Also,  the  derivatives  are  transformed  to  global  coordinates  and 
passed  out  to  ELEMEN.  Values  of  nodewise-discretized  parameters  are  formed  at 
this  location  in  the  element,  as  are  values  of  local  and  global  velocity.  Values 
of  parameters  dependent  on  p  or  U  are  calculated  at  this  location.  Unsaturated 
parameters  are  obtained  by  a  call  to  UNSAT.  The  calculations  are  based  on  sections 
4.1  "Basis  and  Weighting  Functions",  4.2  "Coordinate  Transformations,"  and  4.6 
"Consistent  Evaluation  of  Fluid  Velocity." 

Subroutine  UNSAT 


-Purpose : 

A  user-programmed  routine  in  which  unsaturated  flow  functions  are  specified. 


-Called  by: 


I NDAT 2 ,  BASIS2 ,  NODALB,  BUDGET 


UNSAT  is  called  by  INDAT2  to  calculate  initial  saturations  at  nodes,  by 
BASIS2  at  each  Gauss  point  in  each  element  during  numerical  integration,  by  NODALB 
tor  each  cell,  and  bv  BUDGET  tor  each  cell.  It  allows  the  user  to  specify  the 
functional  dependence  of  relative  permeability  on  saturation  or  pressure,  and 
the  dependence  of  saturation  on  pressure.  UNSAT  is  divided  into  three  sections. 

The  first  section  requires  the  user  to  specify  the  saturation-pressure  (or 
capillary  pressure)  function.  The  second  section  requires  the  user  to  specify 
the  derivative  of  saturation  with  respect  to  pressure.  The  third  section  requires 
the  user  to  specify  the  relative  permeability  dependence  on  saturation  or  capillary 
pressure.  1NDAT2  requires  only  values  of  saturation,  BAS1S2  requires  only  values 
of  saturation  and  relative  permeability,  NODALB  and  BUDGET  require  values  of  sat¬ 
uration  and  its  pressure  derivative.  These  calculations  are  controlled  in  UNSAT 
bv  the  parameter  I  UN'S  AT  which  I.VDAT2  sets  to  a  value  of  three,  which  BASIS2  sets 
to  a  value  of  two,  and  NODALB  and  BUDGET  set  to  one.  For  simulation  of  purely 
saturated  flow,  IUNSAT  is  set  to  zero  bv  INDAT1.  and  UNSAT  is  never  called.  The 
user  may  program  these  functions  in  any  convenient  way,  for  example,  through  data 
statements,  calls  to  other  programs,  logical  structures,  'read'  or  'write'  state¬ 
ments,  or  other  preferred  methods.  More  information  may  be  found  in  section  7.5, 
"User-Suppl ied  Programming . " 

Subroutine  G  LOB AN 

-Purpose : 

To  assemble  elementwise  integrations  into  global  matrix  form. 

-Called  by: 

ELEMEN 
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GLOBAN  carries  out  the  sum  over  elements  of  integrals  evaluated  over  each 
element  by  ELEMEN  as  suggested  by  relation  (3.23).  Both  the  matrix  and  right 
side  vector  terms  involving  integrals  in  the  solution  equations  (4.65b)  and 
(4.96b)  are  constructed. 

Subroutine  NODALB 


-Purpose : 

To  calculate  and  assemble  all  nodewise  and  cellwise  terms  in  the  matrix 
equation. 

-Called  by: 

SUTRA 

-Calls  to: 

UNSAT 

-Description: 

NODALB  undertakes  a  loop  through  all  nodes  in  the  mesh  and  calculates  val¬ 
ues  of  all  cellwise  terms.  For  each  node,  time  derivatives  and  a  fluid  source 
are  added  to  the  fluid  mass  balance  matrix  equation.  The  time  derivative  as 
well  as  terms  due  to  fluid  sources  production  aad  boundary  fluxes  of  U  are  pre¬ 


pared  and  added  to  the  solute  mass/energy  balance  matrix  equation.  Subroutine 


UNSAT  is  called  for  unsaturated  flow  parameters.  The  terms  added  by  NODALB  may 
be  described  as  the  non-integral  terms  of  (4.52)  and  (4.85)  (except  for  the  spec¬ 
ified  pressure  terms.) 

Subroutine  BCB 

-Purpose : 

1)  To  implement  specified  pressure  node  conditions  in  the  matrix 
equat ions. 

2)  To  implement  specified  temperature  or  concentration  node  conditions 
in  the  matrix  equations. 

-Ca lied  by : 

SUTRA 

-I)esc  r  ipt  1  on  : 

The  source  terms  involving  in  (4.52)  are  added  to  fluid  balance  matrix 
equation  in  order  to  obtain  specified  p  nodes.  The  unified  energy-solute  mass 
balance  is  modified  bv  the  addition  of  a  source,  QPL,  (calculated  with  the  most 
recent  p  solution  bv  subroutine  SUTRA)  with  concentration  or  temperature  value, 
UBC. 

for  a  specified  U  node,  the  discretized  balance  equation  is  modified  by 
zeroing  the  row  of  the  U-matrix  which  gives  the  equation  for  the  specified  node. 

A  one  is  placed  on  the  diagonal  and  the  specified  U-value,  UBC,  is  placed  In  the 
same  row  of  the  right  side  vector. 
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Subroutine  PINCHB 


-Purpose : 

To  implement  pinch-node  conditions  in  both  matrix  equations. 


-Called  by : 
SUTRA 


- De s crlptlon : 

PINCHB  undertakes  a  loop  through  all  pinch  nodes.  For  each  pinch  node, 
the  appropriate  row  of  each  matrix  (for  p  and  U)  is  zeroed,  a  one  is  placed  on 
the  diagonal,  -0.5  is  placed  in  the  two  columns  corresponding  to  the  side 
neighbors  of  the  pinch  node,  and  the  corresponding  element  of  the  right  side 
vector  is  zeroed. 

Subrout ine  SOLVEB 

- Pu  rpo s e : 

To  solve  a  matrix  equation  with  a  non-symmetric  banded  matrix. 


-Called  by: 


SUTRA 


-Descript ion : 

SOLVEB  experts  thf;  matrix  hand  as  a  vertical  rectangular  block  with  the 
main  diagonal  in  the  center  column,  and  minor  diagonals  in  the  other  columns. 

The  upper  left-hand  corner  and  lower  right-hand  corner  of  the  matrix  is  blank. 

The  first  section  of  the  routine  carries  out  an  LL’  decomposition  of  the 
matrix  which  is  saved  within  the  original  matrix  space.  The  second  section  of 
the  routine  prepares  the  right  side  for  solution  and  carries  out  back-substitution 
with  a  given  right  side  vector. 

Subrout ine  BUDGET 

-Hurpose : 

1)  To  calculate  and  output  a  fluid  mass  budget  on  each  time  step  with 
on t  put  . 

2  >  To  calculate  and  output  a  solute  mass  or  energy  budget  on  each  time 
stop  with  output. 

-t'a  1  Led  by  : 

Si'l'RA 

-'.'ails  t  o : 

i'XSAl ,  ADSORB 

-lies'  r i pt  ion: 

BUDGET  calculates  and  outputs  a  fluid  iriss.  solute  at:  a  or  energy  budget  on 
o  w h  output  rime  step  for  whichever  of  p  tnd/oi  i  ate  solved  for  on  the  just- 
rcmpleted  time  step.  The  calculations  ate  done  as  describ'.  •  :n  section  5 .  b 
" Bud  get  Calculations." 


Subroutine  STORE 

-Purpose : 

To  store  p  and  I  results  as  well  as  other  parameters  on  Unit-66  in  a  format 
ready  for  use  as  initial  conditions  in  Unit-a?.  This  acts  as  a  backup 
for  re-start  in  case  a  simulation  is  unexpectedly  terminated  before  com¬ 
pletion  bv  computer  malfunction. 

—it i Jed  by : 

SUTRA 

-Descript  ion : 

STORK  is  railed  upon  comp  let  ion  of  «*a«  h  time  step  of  a  simulation,  if  the 
storage  option  has  been  chosen.  STORK  writes  the  most  recent  solution  for  p 
and  U  at  the  nodes  on  a  file,  Vnit-bb,  in  a  format  exactlv  equivalent  to  that 
ot  input  data  file  Unit-SS.  information  is  also  written  which  is  used  in  a 
warm  start  (restart  )  of  the  simulation.  The  results  of  only  the  most  recent 
tirm-  step  are  stored  on  I'Xll-ob  3S  STORE  rewinds  the  file  each  time  before 


S  i  mu  1  ati on  Examples 

This  chapter  outlines  a  number  of  example  simulations  which  serve  to 
demonstrate  some  of  the  capabilities  of  SUTRA  modeling.  Some  of  the  examples 
show  results  which  are  compared  with  analytical  solutions  or  numerical 
solutions  available  in  the  literature.  These  results  serve  to  verify  the 
accuracy  of  SUTRA  algorithms  for  a  broad  range  of  flow  and  transport  problems. 
The  other  examples  demonstrate  physical  processes  which  SUTRA  may  simulate  in 
systems  where  no  other  solutions  are  available.  A  complete  SUTRA  input  data 
set  and  model  output  is  provided  for  the  example  of  section  6.3,  "Radial  Flow 
with  Energy  Transport,"  in  Appendix  B  and  Appendix  C. 

6.1  Pressure  Solution  for  Radial  Flow  to  a  Well 
(Theis  Analytical  Solution) 

Physical  Set-up: 

A  confined,  infinite  aquifer  contains  a  fully  penetrating  withdrawal 
well.  Fluid  is  pumped  out  at  a  rate,  QjqT- 


Object i ve : 

To  simulate  transient  drawdown  in  this  system  which 
solution.  The  Theis  solution  (Lohman,  1979)  is  given  in 


in  SUTRA  bv: 

* 


Qtot1' 


u  n  p‘  A 7.  k  Igl 


W(  u  ) 


where  s  is  the  drawdown,  W(u)  is  the  well  function  of  u 


should  match  the  Theis 
terms  of  variables  used 


<  6. la) 


and 
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u  * 


(6.1b) 


_ 2£ 

4  k  t 

where  r  is  the  radial  distance  from  the  well  to  an  observation  point  and  t  is 
the  elapsed  time  since  start  of  pumping. 

Simulation  Set-up: 

The  mesh  contains  one  row  of  elements  with  element  width  expanding  by  a 
constant  factor,  1.2915,  with  increasing  distance  from  the  well;  other  mesh 
dimensions  are  Armjn»2.S  ( m )  ,  Armax*25.  {mj,  rmax“500.  [m],  Az«l  .  (m|. 

Mesh  thickness  at  node  i,  is  given  by  Bj»2xr j ,  which  provides  a  radial 
coordinate  system.  The  number  of  nodes  and  elements  in  the  me9h  are:  NN“54, 
NF.“26.  See  Figure  6.1. 

The  initial  time  step  is,  At0«*l.  Is),  with  time  steps  increasing  by  a  factor, 

1.5,  on  each  subsequent  step. 

One  pressure  solution  is  obtained  per  time  step,  solutions  for  concentration 
are  ignored;  the  cycling  parameters  are:  NPCYOl,  NUCY09999 . 


Parameters : 


Sop  -  1.0)9  x  10"6  lm-s2/kg!  t  -  0.20 

«  »  1.299  x  10-6  |m-s2/kgj  k  -  2.0387  x  10"10  (m2) 

R  «  4.4  x  10“1^  jm-s2/kg|  p  »  1000.  (kg/m^j 

|g|  -  9.81  |m/s2) 

QtoT  m  0.6284  (kg/s  |  (one-half  at  each  well  node) 
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Boundary  Conditions; 

No  flow  occurs  across  any  boundary  except  where  hydrostatic  pressure  Is 
specified  at  rmax.  At  the  top  outside  corner  of  the  mesh,  rmax,  pressure  is 
held  at  zero.  A  sink  is  specified  at  r“0  to  represent  the  well. 

Initial  Conditions: 

Hydrostatic  pressure  with  p»0  at  the  top  of  the  aquifer  is  set  initially. 

Results : 

SUTRA  results  are  plotted  for  two  locations  in  the  mesh  representing  obser¬ 
vation  wells  at  r*15.2852  [m],  and  r"301.0867  [m].  Both  locations  should  plot  on 
the  same  Theis  curve.  The  match  of  SUTRA  results  between  one  and  6000  minutes 
with  the  Theis  analytical  solution  shown  in  Figure  6.2  is  good. 

6.2  Radial  Flow  with  Solute  Transport 
(Analytical  Solutions) 

Physical  Set-up; 

A  confined  infinite  aquifer  contains  a  fully  penetrating  injection  well. 
Fluid  is  injected  at  a  rate,  QjoT'  with  a  solute  concentration,  C*,  into  the 
aquifer  initially  containing  fluid  with  solute  concentration,  C0.  The  fluid 
density  does  not  vary  with  concentration. 

Objective : 

To  simulate  the  transient  propagation  of  the  solute  front  as  it  moves 
radially  away  from  the  well.  The  concentrations  should  match  the  approximate 


0 
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analytical  solutions  of  Hoopes  and  Harleman  (1967)  and  Gelhar  and  Collins  (1971). 


The  solution  of  Gelhar  and  Collins  (1971)  is: 


(?t) 

'  r\  ' 


1  „  I  ( r 

2  ertc  , 


i  (  2  -2 


* ) 


where : 


2[(|  «L)r*3  + 


r*  =  (2At) 


A 


/  QTOT\ 
\27Ttbp  / 


(6.2) 


(6.3a) 


(6.3b) 


The  Hoopes  and  Harleman  (1967)  solution  is  obtained  by  replacing  r*  in  the 
denominator  of  (6.2)  with  r. 

Simulation  Set-up : 

The  mesh  consists  of  one  row  of  elements  with  element  width  expanding  from 
Armin=2.3  [m]  by  a  factor,  1.06,  to  r*395.  [mj,  and  then  maintaining  constant 
element  width  of  Ar>*24.2  !m]  to  rmax=1000.  [  m  ] .  Element  height,  b,  is  10.  [m]. 
Mesh  thickness  is  set  for  radial  coordinates,  B^=2nrj,  with  the  number  of 
nodes  and  elements  given  bv  NN=132,  NE=65.  See  Figure  6.3. 

The  time  step  is  constant  at  At*4021.  [sj,  and  outputs  are  obtained  for 
times  steps  numbered:  225,  450,  900,  1800.  One  pressure  solution  is  carried 
out  to  obtain  a  steadv-state ,  (ISSFL0»1),  and  one  concentration  solution  is  done 
per  time  step,  (NIJCYC*!). 

Pa ramot ers : 

9 op  =  0.0  p  =  1000.  [  k  g  /  m  2  ] 

k  =  1 . 02x1 0” 1  *  [m2j  Dm  =  l.xlO-10  (m2/s) 


ial  f inite-eleme 
ute  and  energy  t 


*  10.0  [m] 
cep  =  0.0  [m} 


e  =  0.2 

U  =  l.OxlO-2  [kg/m*s] 

| g|  *  9.8  [m/s2 ] 

Qtqt  =  62.5  [kg/s]  (one  half  at  each  well  node) 


C*  =  1.0 


Boundary  Conditions: 

No  flow  occurs  across  any  boundary  except  where  hydrostatic  pressure  is 
specified  at  rmax.  At  the  top  outside  corner  of  the  mesh,  rmax,  pressure  is 
held  at  zero.  A  source  is  specified  at  r=0.0  to  represent  the  injection  well. 

Initial  Conditions: 

Initially  hydrostatic  pressure  is  set  with  p=0.0  at  the  aquifer  top. 

Initial  concentration,  CG,  is  set  to  zero. 

Results : 

SUTRA  results  after  225,  450,  900  and  1800  time  steps  are  compared  with 
the  approximate  analytical  solutions  of  Gelhar  and  Collins  (1971)  and  Hoopes  and 
Harleman  (1967)  in  Figure  6.4.  The  analytical  solutions  are  approximate  and 
they  bound  the  SUTRA  solution  at  the  top  and  bottom  of  the  solute  front.  All 
solutions  compare  well  with  each  other  and  the  SUTRA  solution  may  be  considered 
to  be  more  accurate  than  either  approximate  analytic  solution  because  it  is  based 
on  a  very  fine  spatial  and  temporal  discretization  of  the  governing  equation. 
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RADIAL  DISTANCE,  IN  METERS 


Figure  6.4 

Match  of  analytical  solutions  for  radial  solute 
transport  of  Hoopes  and  Harleman  (1967)  (dashed), 
Gelhar  and  Collins  (1971),  (solid),  and  SUTRA 
solution  (dash-dot).  Number  of  elapsed  time 
steps  is  n. 


6.3  Radial  Flow  with  Energy  Transport 
(Analytical  Solution) 

Physical  Set-up: 

A  confined  aquifer  contains  a  fully  penetrating  injection  well.  Fluid  is 
injected  at  a  rate,  Qnoi*  with  a  temperature,  T*,  into  the  aquifer  initially 
at  a  temperature,  T0.  For  this  problem,  density  p,  and  viscosity  p,  are  kept 
approximately  constant  by  injecting  fluid  that  only  slightly  differs  in  temper¬ 
ature  from  the  ambient  fluid;  i.e.  (T*-T0)  is  small. 

Objective ; 

To  simulate  the  transient  propagation  of  the  temperature  front  as  it  radially 
moves  away  from  the  well.  The  solution  should  match  an  approximate  analytical 
solution  of  Gelhar  and  Collins  (1971)  modified  for  energy  transport.  The  Gelhar 
and  Collins  (1971)  solution,  as  modified  for  energy  transport  is: 


(  llM .  i  „rfe )  (,r2  -_e£j _ .1 

\  T*-  To  /  2  ^2[(|  «L)r*3  +  ^XTOT^  r*Vj 


xTOT 

2xeBp 

,epc 


N-O 


TOT' 

c„,„_  ■  epc  +  (l-e)p  c 
TOT  w  s  s 


TOT 


eX  +  (l-t)X 

w  s 


r* 


(2At 


t) 


(6.4) 

(6.5) 

(6.6) 

(6.7) 

(6.8) 

(6.9) 
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The  energy  solution  above  may  be  obtained  from  the  solute  solution  by  retarding 
the  velocity  of  transport  to  represent  movement  of  an  isotherm  rather  than  a 
parcel  of  solute.  This  is  done  by  accounting  for  energy  storage  in  the  solid 
grains  of  the  aquifer  material  in  the  storage  term  of  the  analytical  solution. 

Simulation  Set-up: 

The  mesh  used  for  this  example  is  the  same  as  for  the  radial  solute  transport 
example.  Time  steps  and  frequency  of  SUTRA  outputs  are  the  same  as  for  the  radial 
solute  transport  example.  Further,  cycling  of  the  SUTRA  solution  is  the  same  as 
for  the  radial  solute  transport  example. 

Parameters : 


cw  *  4182.  [ J/kg • °C] 

^op  ~  0 • 

c3  -  840.  [ J/kg • °C ] 

k  -  1.02xl0-11  [m2 

\w  a  0.6  [ J/s • m • °C ] 

e  *  0.2 

p  =  1000.  [kg/m3] 

\s  *=  3.5  [j/s-m-'C] 

Ps  *  2650.  [kg/m3] 

|g]  *  9.8  [m/s2] 

*  0.0 

a.  *  10.  [ m ] 

3T 

a  =  0.0  [ m ] 

U  «*  u(T)  (relation  (2.5)) 

Qtqt  "  312.5  [kg/s)  (one  half  at  each  well  node) 

*  o 

T  *  1 .0°C 
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Boundary  Conditions: 


No  flow  occurs  across  any  boundary  except  where  hydrostatic  pressure  is 
specified  at  rfflax.  At  the  top  outside  corner  of  the  mesh,  pressure  is  held  at 
zero.  A  source  is  specified  at  r*0.0  to  represent  the  injection  well.  Further, 
the  system  is  thermally  insulated  along  the  top  and  bottom  of  the  mesh. 

Initial  Conditions: 

Initially,  hydrostatic  pressure  is  set  with  p*0.0  at  the  top  of  the 
aquifer.  The  initial  temperature  is  To“0.0°C. 

Results : 

SUTRA  results  after  225,  450,  900  and  1800  time  steps  are  compared  with 
the  approximate  (modified)  analytical  solution  of  Gelhar  and  Collins  (1971)  in 
Figure  6.5.  The  analytic  solution  has  the  same  relation  to  the  SUTRA  solution 
as  it  does  in  Figure  6.4  for  solute  transport.  Thus  the  match  is  good,  and 
again  the  SUTRA  result  may  be  more  accurate  than  the  approximate  analytic 
result  because  of  the  fine  discretization  employed. 

6.4  Areal  Constant-Density  Solute  Transport 
(Example  at  Rocky  Mountain  Arsenal) 

Physical  Set-up: 

This  example  involves  a  simple  representation  of  ground-water  flow  and  sol¬ 
ute  transport  at  the  Rocky  Mountain  Arsenal,  Denver,  Colorado,  which  is  based  on 
the  detailed  model  of  the  system  by  Konikow  (1977).  The  simplified  representa- 
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TEMPERATURE 


tion  consists  of  an  areal  model  of  a  rectangular  alluvial  aquifer  with  a  con¬ 
stant  transmissivity  and  two  impermeable  bedrock  outcrops  which  influence  ground- 
water  flow.  (See  Figure  6.6.) 

Regional  flow  is  generally  from  the  south-east  to  the  north-west  where  some 
discharge  occurs  at  the  South  Platte  River.  This  is  idealized  as  flow  origin¬ 
ating  in  a  constant  head  region  at  the  top  of  the  rectangle  in  Figure  6.6,  and 
discharging  to  the  river  at  the  bottom  of  the  rectangle  which  also  acts  as  a 
specified  head  region.  Three  wells  pump  from  the  aquifer  (at  a  rate  of  QoUT 
each),  and  contamination  enters  the  system  through  a  leaking  waste  isolation 
pond  (at  a  rate  of  with  concentration,  C  ).  The  natural  background  con¬ 

centration  of  the  contaminant  is  CQ . 


Objectives: 

1 )  To  demonstrate  the  applicability  of  SUTRA  to  an  areal  constant  density 
solute  transport  problem;  2)  To  convert  SUTRA  input  data  values  so  the  pressure 
results  represent  heads,  and  the  concentration  results  are  in  (ppm);  and  3)  To 
simulate  steady-state  flow  and  hypothetical  steady-state  distributions  of  the 
contaminating  solute,  both  as  a  conservative  solute,  and  as  a  solute  which  under¬ 
goes  first  order  decay,  assuming  that  the  contamination  source  in  the  idealized 
system  is  at  a  steady-state. 

Simulation  Set-up: 

The  rectangular  mesh  consists  of  16  by  20  elements  each  of  dimension  1000.  ft 
by  1000.  ft,  as  shown  in  Figure  6.6.  (NN*357,  NE“320).  Mesh  thickness,  B,  is 
the  actual  aquifer  thickness,  assumed  constant  for  the  idealized  model. 

One  steady-state  pressure  solution  is  obtained  (ISSFL0«1),  and  one  concen- 
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Figure  6.6 

Idealized  representation  for  example  at  Rocky 
Mountain  Arsenal,  and  finite-element  mesh. 


conduction,  dispersion,  and  tipping  of  the  thermal  front.  The  front  should 
tip  as  less  dense,  less  viscous  hot  water  rises  over  colder,  denser,  and  more 
viscous  formation  water. 

Slinu lation  Set-up : 

The  mesh  is  30.  [mj  high  with  a  vertical  spacing  between  nodes  of  3.0 
|m).  The  first  column  of  elements  has  width  Armln  ■  1.0  [m],  and  element 
width  increases  with  each  column  by  a  factor,  1.1593,  to  a  final  column  of 
width,  Armax  ■  35.  (mj.  The  outside  boundary  of  the  mesh  is  at  rmax  * 

246.  (mj.  See  Figure  6.13.  Mesh  thickness,  B,  at  any  node  i,  is  Bj  ■ 

2*r^,  giving  cylindrical  symmetry.  The  number  of  nodes  and  elements  in  the 
mesh  is  given  by  NN*286,  NE“250. 

The  time  step  is  constant  at  At  *  3.0  (daysj.  One  pressure  solution  and 
one  temperature  solution  is  obtained  at  each  time  step  ( NPCYONUCYOl ) .  The 
storage  coefficient  is  assumed  negligible  resulting  in  a  steady  flow  field  at 
any  time  step.  Subroutine  BCTIME  is  programmed  to  control  the  well  rate  which 
changes  after  90  days  from  fluid  injection  to  fluid  withdrawal. 

A  time-dependent  fluid  source  is  specified  at  the  left  vertical  boundary 
(center  axis)  which  injects  60.(°Cj  water  for  90  days  and  then  withdraws  ambient 
water  for  90  days.  The  right  vertical  boundary  is  held  at  hydrostatic  pressure 
for  water  at  20.  (“Cj.  Any  inflow  at  this  boundary  has  a  temperature  of  20. °C. 
Thermally  insulated  and  impermeable  conditions  are  held  at  the  top  and  bottom 
of  the  mesh. 
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Figure  6.12 

Match  of  0.50  isochlor  contours  for  Henry  problem 
with  simulated  results  for  Dm  *  6.6  X  10“9(m2/gj 
of  Pinder  and  Cooper  (1970),  (short  dashes),  Segol, 
et  al  (1975)  (dotted  line),  Frind  (1982)  (long  and 
short  dashes),  Desai  and  Contractor  (1977)  (long  dashes). 
SUTRA  results  at  isochlors  (0.25,0.50,0.75)  (solid  line). 
Henry  (1964)  solution  for  Dm  *  18.8571  x  10"^  [m^/s], 
(0.50  isochlor,  dash-dot). 


solution,  which  is  approximate  and  may  not  be  as  accurate  as  the  numerical 
solut ions . 

For  the  lower  value  of  diffusivity,  Drn=6.6xl0-^  [m^/sj,  (which  should 
not  compare  with  the  Henrv  result),  the  SUTRA  solution  at  t=100.  [min]  is  com¬ 
pared  in  Figure  b . 1 2  with  that  of  Pinder  and  Cooper  (1970)  (method  of  charac¬ 
teristics),  Segol  et.  al.  (1975)  (finite  elements),  Desai  and  Contractor  (1977) 
(finite  elements  -  coarse  mesh),  and  Frind  (1982)  (finite  elements).  The  match 
of  the  numerical  0.5  isochlor  solutions  is  remarkably  good;  however,  it  should 
be  noted  that  none  of  these  match  the  analytical  solution. 

6.6  Densi t v-Dependent  Radial  Flow  and  Energy  Transport 
(Aquifer  Thermal  F.nergv  Storage  Example) 

Phy s  ical  Se  t -up : 

This  is  an  example  of  aquifer  thermal  energy  storage.  Hot  water  is  in¬ 
jected  into  an  aquifer  for  storage  and  later  withdrawn  and  used  as  an  energy 
source.  The  fully  penetrating  injection  wells  are  emplaced  in  a  well-field 
in  a  hexagonal  packing  pattern.  The  wells  are  at  the  vertices  of  contiguous 
equi lateral  triangles  with  sides  of  500.  (mj.  This  gives  approximately  radial 
svmmetrv  to  physical  processes  surrounding  an  interior  well. 

Obj  ect i  ve : 

To  simulate  the  initial  injection-withdrawal  cycle  at  an  interior  well 
consisting  of  90  days  of  injection  (at  Qjfj)  of  60°C  water  into  the  aquifer 
initially  at  20"C,  and  90  days  of  withdrawal  (at  Qin)  producing  the  stored 
water.  Degradation  of  recovered  fluid  temperature  should  occur  due  to  thermal 
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Figure  6.11 

Match  of  isochlor  contours  for  Henry  analytical 
solution  (for  0.50  isochlor)  (long  dashes),  INTERA 
code  solution  (short  dashes),  SUTRA  solution  (solid 
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D=6.6  x  10-6m2/s) 

Huyakorn  and  Taylor 
(1976)  (Steady  state, 
D=6.6  x  10-6  m2/s) 

SUTRA  (100.0  min, 
D=2.31  x  10-6  mt/s) 
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Figure  6.10 

Match  of  isochlors  along  bottom  of  aquifer 
for  numerical  results  of  Huyakorn  and  Taylor 
(1976)  and  SUTRA. 
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Results : 


Henry's  solution  assumes  that  dispersion  is  represented  by  a  constant 
large  coefficient  of  diffusion,  rather  than  by  velocity-dependent  dispersivity . 

Two  different  values  of  this  diffusivity  have  apparently  been  used  in  the  lit¬ 
erature  by  those  testing  simulators  against  Henry's  solution.  The  total  dis¬ 
persion  coefficient  of  Henry  (1964),  D,  is  equivalent  to  the  product  of  porosity 
and  molecular  diffusivity  in  SUTRA,  D“EDm. 

Henry's  results  are  given  for  his  non-dimensional  parameters:  £■ 2.0 ,  b*0.1, 
a=.264  (page  C80-  Figure  34  in  Henry  (1964)).  In  order  to  match  the  Henry  para¬ 
meters  using  simulation  parameters  as  listed  above,  values  of  D«6.6xl0~^  [m^/s] 
and  Dm*18. 8571x10”^  [m^/s]  are  required.  Some  authors,  however,  have  appar¬ 
ently  used  a  value  equivalent  to  D,,,^ .  6x10“^  [m2/a]  an(j  j)  .  2.31x10”^ 

(m^/s),  which  differs  from  the  Henry  parameters  by  a  factor  equal  to  the  porosity. 

In  the  previous  model  solutions  compared  here,  only  Huyakorn  and  Taylor 
(1976)  have  employed  the  higher  value  which  should  match  Henry's  solution.  A 
comparison  of  SUTRA  results  at  t»100.  [min],  using  the  higher  value  with  those 
of  Huyakorn  and  Taylor  (1976)  along  the  bottom  of  the  section  is  shown  in  Figure 

6.10.  Huyakorn  and  Taylor's  results  are  for  a  number  of  simulation  models 
based  on  significantly  different  numerical  methods.  SUTRA  results  are  also  shown 
for  the  lower  diffusivity  value.  The  results  of  simulations  using  the  higher 
diffusivity  value  cosqaare  favorably.  Results  using  the  higher  value  have  also 
been  obtained  with  the  INTERA  (1979)  finite-difference  code  at  t*100.  [min], 

(with  centered-in-space  and  centered-in-time  approximations).  These  are 
compared  with  SUTRA  and  the  Henry  solution  for  the  0.5  isochlor  in  Figure 

6.11.  The  models  match  well  but  do  not  compare  favorably  with  the  analytic 


199 


sea  water  through  use  of  specified  pressure  nodes.  Any  water  which  enters  the 
section  through  these  nodes  has  concentration  Cg£  of  sea  water  (equal  to  Cs). 


Pa  rameters : 

e  *  0.35 

C  ,  0.0357  rk&Ldl..£l°lY_ed„ 
s  ^  kg( seawater)  J 

ps  =  1025.  [kg/m3J 

l£  =  7nn  [  kg( seawater)2 
3C  ‘  L(kg  dissolved  solids-m1 

p0  =  700.  i kg/m3  j 

Q =  6.6xl0~2  [kg/s] 

(divided  among  11  nodes 
at  left  boundary) 

Boundary  Conditions : 

No  flow  occurs  across  the 
is  set  along  the  left  vertical 
tic  sea  water  pressure  with  (ps 
boundary.  Anv  inflowing  fluid  at 
[ kg ( dissolved  solids)/ kg ( seawater ) ] , 


k  *  1 .020408xl0‘9  jm2] 

(based  on  K=1.0xl0  [m/s]) 

1*1  =  9.8  lm/s2} 

aL  =  aT  =  0-0 

B  =  1.0  [m] 

6.6x10~6  [m2/s]  \  two 

>  ■* 

D  18.8571x10"^  [m2/s]  )  cases 
CIN  =  0.0 


bottom  boundaries.  A  fresh-water  source 
Specified  pressure  is  set  at  hydrosta- 
[kg/m3])  along  the  right  vertical 
boundary  has  the  concentration,  Cs=0.0357 
sea  water. 


top  and 
boundary. 
=1025. 
this 
of 


Tri it i al  Conditions  : 

Natural  steadv  pressures  are  set  everywhere  in  the  aquifer  based  on  the 
fresh-water  inflow,  zero  concentration  everywhere,  and  the  specified  pressures 
at  the  sea  boundary.  These  initial  conditions  are  obtained  through  an  extra 
initial  simulation  which  calculates  steady  pressures  under  these  conditions. 
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6.5  Density-Dependent  Flow  and  Solute  Transport 


(Henry  (1964)  Solution  for  Sea-Water  Intrusion) 

Physical  Set-up: 

This  problem  involves  sea-water  intrusion  into  a  confined  aquifer  studied 
in  cross-section  under  steady  conditions.  Fresh-water  recharge  inland  flows 
over  salt  water  in  the  section  and  discharges  at  a  vertical  sea  boundary. 

The  intrusion  problem  is  non-linear  and  may  be  solved  by  approaching  the 
steady  state  gradually  with  a  series  of  time  steps.  Initially  there  is  no  salt 
water  in  the  aquifer,  and  at  time  zero,  salt  water  begins  to  intrude  the  fresh 
water  system  by  moving  under  the  fresh  water  from  the  sea  boundary.  The  intru¬ 
sion  is  caused  by  the  greater  density  of  the  salt  water. 

Dimensions  of  the  problem  are  selected  to  make  for  simple  comparison  with 
the  steady-state  dimensionless  solution  of  Henry  (1964),  and  with  a  number  of 
other  published  simulation  models.  A  total  simulation  time  of  t«100.  [min),  is 
selected,  which  is  sufficient  time  for  the  problem  to  essentially  reach  steady 
state  at  the  scale  simulated. 

Simulation  Set-up: 

The  mesh  consists  of  twenty  by  ten  elements,  each  of  size  0.1  [mj  by  0.1  (m) 
(NN»231,  NE*200).  Mesh  thickness,  B,  is  1.  (m).  See  Figure  6.9.  Time  steps 
are  of  length  1.  [min),  and  100  time  steps  are  taken  in  the  simulation.  Both 
pressure  and  concentration  are  solved  for  on  each  time  step,  ( NUCYONPCYOl ) . 

A  source  of  fresh  water  is  implemented  by  employing  source  nodes  at  the 
left  vertical  boundary  which  inject  fresh  water  at  rate,  Qjjj,  and  concentra¬ 
tion,  Cjfj.  The  right  vertical  boundary  is  held  at  hydrostatic  pressure  of 
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Figure  6.7 

Nearly  steady-state  conservative  solute  plume 
as  simulated  for  the  Rocky  Mountain  Arsenal 
example  by  SUTRA. 
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at  250.  (ft)  at  the  top  of  the  mesh  and  where  constant  head  is  specified  as 
changing  linearly  between  17.5  (ft]  at  the  bottom  left  corner,  and  57.5  [ft]  at 
the  bottom  right  corner  of  the  mesh.  Inflow  at  the  top  of  the  mesh  is  at  back¬ 
ground  concentration,  Co*10.  (ppm).  A  source  is  specified  at  the  leaky  pond 
node,  and  a  sink  is  specified  at  each  well  node. 

Initial  Conditions; 

Initial  pressures  are  arbitrary  for  steady-state  simulation  of  pressure. 
Initial  concentration  is  Co*10.  (ppm). 

Results : 

A  nearly  steady-state  solute  plume  for  a  conservative  solute  is  obtained 
after  a  1000  year  time  step  shown  in  Figure  6.7.  For  a  solute  which  under¬ 
goes  first  order  decay  with  decay  coefficient,  y*l.lxl0~^  [s“^]  (approxi¬ 
mately  a  20  year  half-life),  the  nearly  steady  plume  is  shown  in  Figure  6.8. 
Just  upstream  of  the  plume  envelope  is  a  region  in  which  concentration  dips 
slightly  below  background  levels.  This  is  due  to  a  numerical  problem  of 
insufficient  spatial  discretization  in  a  region  where  the  concentration  must 
change  sharply  from  fresh  upstream  values  to  contaminated  plume  values.  Lower 
dispersivity  values  would  exacerbate  the  problem  in  the  upstream  region,  but 
minor  upstream  oscillations  do  not  affect  concentration  values  within  the  plume 


tration  solution  is  obtained.  The  concentration  solution  is  obtained  after  a 
single  time  step  of  1000.  years,  which,  for  all  practical  purposes,  brings  the 
concentration  distribution  to  a  steady-state. 

The  leaky  pond  is  simulated  as  an  injection  of  fluid  ( Ql N »  C  )  at  a 
single  node.  Where  the  impermeable  bedrock  outcrop  occurs,  elements  are 
assigned  a  conductivity  value  one-millionth  of  the  aquifer  values.  A  single 
value  of  constant  head  is  specified  along  a  portion  of  the  top  boundary,  and  a 
series  of  head  values  is  specified  along  the  bottom  (river)  boundary  to 
represent  changing  elevation  of  the  river. 

In  order  to  obtain  results  in  terms  of  hydraulic  head  and  [ppmj,  the 
following  must  be  specified:  pa1.0,  ■  0.0,  |£|M0.0,  p*1.0.  Hydraulic  con¬ 

ductivities  are  entered  in  the  permeability  input  data  set.  Head  values  in  l ft] 
are  entered  in  data  sets  for  pressure.  Concentrations  in  IppmJ  are  entered  in 
data  sets  for  mass  fraction  concentration.  Sources  and  sinks  are  entered  in  units 
of  volume  per  time. 

Parameters : 

aL  ■  500.  I  ft  J 

Of  «  100.  [ftj 

e  *  0 . 2 

K  -  2.5xl0~4  lft/sj 

(hydraulic  conductivity) 

B  *  40.  ft 

Boundary  Conditions : 

No  flow  occurs  across  any  boundary  except  where  constant  head  is  specified 


QlN  *  1*0  l f 1 3/s  J 

C"  ■  1000.  IppmJ 

C0  -  10.  IppmJ 

QOUT  “  0*2  l ft3/ s J 

(at  each  of  three  wells) 
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Parameters 


c  =  4182.  ( J/kg • °C | 
w 

Cg  -  840.  { J/kg - °C  j 

V  >*  0.6  [  J  /  s  •  m  •  "  C  ) 
w 

\  *  3.5  ( J  /  s  •  m  •  °  C  ) 

s 

T  -  20. "C 
o 

■  -0.375  [kg/m3-“C| 

T*  =  60. I “Cl 


qtot  =  200‘  lkg/sl 

(distributed  along  well) 


S  -  0 
op 

k  «  1.02  x  10'10  [m2 J 


e  -  0.35 


p  ■  1000.  [kg/m  ) 
o 

p  *  2650.  lkg/m^) 
s 

U  *  w(T)  (relation  (2.5)) 


1*1  -  9.81  [m/s' 
■  4.0  [m] 


o<T  *  1.0  (m) 


Boundary  Conditions : 

Conditions  of  no  flow  and  thermal  insulation  are  held  at  all  boundaries 
except  where  hydrostatic  pressure  at  T  *  20. [”C]  is  specified  at  rmax.  At  the 
top  outside  corner  of  the  mesh  the  pressure  is  held  at  zero.  A  time-dependent 
source  is  specified  at  r»0.0  to  represent  the  injection-withdrawal  well. 


Init i al  Conditions : 

Hydrostatic  pressure  is  specified  initially,  with  p»0.0  at  the  top  of  the 
aquifer.  The  initial  temperature  is  set  to  To*20.[uC). 


Res u  Lts : 

SUTRA  results  during  injection  after  30  days  and  90  days  are  shown  in 


Figure^J^.lJ*  and  Figure  6J5.  Simulated  results  during  withdrawal  are  shown  in 
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Figure  6.15 

SUTRA  results  after  90  days  of  hot  water  injection 


Figure  6.16,  Figure  6.17,  and  Figure  6.18  after  30  days,  60  days,  and  90  days 
of  withdrawal.  The  thermal  transition  zone  (between  hot  and  cold  water)  widens 
throughout  the  injection-production  cycle,  due  to  both  dispersion  and  heat  con¬ 
duction.  The  top  of  the  transition  zone  tips  away  from  the  well  during  the  entire 
cycle,  due  to  the  bouyancy  of  the  hotter  water.  These  two  effects  combine  to 
cause  cooler  water  to  reach  the  bottom  of  the  withdrawal  well  much  earlier  than 
if  no  density  differences  or  dispersion  existed.  Also,  although  the  same  quan¬ 
tity  of  water  has  been  removed  as  injected,  energy  is  lost  to  the  aquifer  during 
the  cycle  as  seen  at  the  end  of  simulation. 

6.7  Constant-Density  Unsaturated  Flow  and  Solute  Transport 
(Example  from  Warrick,  Biggar  and  Nielsen  (1971)) 

Physical  Set-up; 

Water  containing  solute  infiltrates  an  initially  unsaturated  solute-free 
soil  for  about  two  hours.  Solute-free  water  continues  to  infiltrate  the  soil 
after  the  initial  two  hours.  The  moisture  front  and  a  slug  of  solute  move 
downwards  through  the  soil  column  under  conservative  non-reactive  constant- 
density  transport  conditions,  as  described  in  a  field  experiment  by  Warrick, 
Biggar,  and  Nielsen  (1971). 

Objective 

To  simulate  the  transient  propagation  of  the  moisture  front  and  solute 
slug  as  they  move  downwards  through  the  soil  column,  under  conditions  of 


simulation  equivalent  to  that  used  by  Van  Genuchten  (1982)  to  represent  the 


Temperature  (°C) 
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Figure  6_.  16 

SUTRA  results  after  30  days  of  pumping,  (120  day 
total  elapsed  time). 
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Figure  6.17 

SUTRA  results  after  60  days  of  pumping,  (150  day 
total  elapsed  time.) 


field  experiment.  The  solutions  should  match  the  best  fine  grid  -  fine  time 
step  simulation  results  of  Van  Oenuchten  (1982)  which  were  obtained  with  a 
number  of  different  finite  difference  and  finite  element  numerical  methodol¬ 
ogies. 

Simulation  Set-up : 

The  mesh  consists  of  a  single  vertical  column  of  100  elements  oriented 
in  the  direction  of  gravity,  which  is  2.0  { m ]  long  and  0.01  [m]  wide.  The 
number  of  nodes  and  elements  is:  NN  *  202,  NE  =  100.  Each  element  is  0.01  ( m J 
wide  and  0.02  [ml  high.  Mesh  thickness  is  unity.  The  vertical  coordinate,  x, 
is  measured  downward  from  the  top  of  the  column. 

The  time  step  is  constant  at  At  =  30.  (s),  and  because  of  the  small  time 
step,  only  one  iteration  is  done  per  step.  The  simulation  is  carried  out  for 
nine  hours  of  infilt ration. 

Outputs  are  obtained  once  each  hour,  but  are  only  compared  at  two  hours 
and  nine  hours.  There  is  one  pressure  solution  and  one  concentration  solution 
each  time  step. 


S  =  0.0 
op 

k  =  9 . 4368x10  '  [m“ J 


p  *  1 000 .  [  kg/m''  ] 

rr  =  0 . 0 
w 


(6.10) 

(6.11a) 

(6.11b) 


c  -  0.38 


er  *0.0]  |  m ] 

L 


U  *  1.0  x  10  ^[kg/m-sj  ■  0.0  [m] 

1*1  “  9.81  (Ws2) 

Boundary  Conditions 

The  top  boundary  representing  an  infiltration  pond,  is  held  fully  satur¬ 
ated,  Sw  *  1.0,  (water  content  eSw  *  0.38)  during  the  simulation  by  spec¬ 
ification  of  pressure  at  p  *  -1421.96  (kg/Im-s^)].  The  bottom  boundary  is 
held  at  a  specified  saturation  of  Sw  *  0.526316,  (water  content  eSw  ■  0.20) 
by  specification  of  pressure,  p  »  -15616.5  [kg/(m-s^)].  No  flow  occurs  across 
either  side  boundary,  but  flow  enters  the  top  boundary  due  to  the  pressure  spec¬ 
ification.  The  concentration  of  inflowing  fluid  at  the  top  is  held  at  C  *  209. 
Imeq/liter)  until  time  t  *  168.0  [min),  at  which  time  the  concentration  of  the 
inflow  drops  to  C  ■  0.0  (meq/liter).  Note  that  the  concentration  units  are 
arbitrary  (need  not  be  mass  fractions)  because  this  is  a  constant  density  sim- 
u  lat ion . 

Initial  Conditions: 

Initially,  pressures  are  set  to  obtain  the  following  initial  distribution 
of  saturation,  shown  in  Figure  6.19: 

!  0.394737  +  0.219289  x  0.0  <  x  S  0.60  (m)  (6.12) 

0. 526316  0.6  <  x  <  1.25  lm) 

Initial  concentrations  are  set  to  zero. 
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SUTRA  results  after  two  hours  and  nine  hours  of  infiltration  are  shown 


with  the  finely  discretized  solutions  of  Van  Genuchten  (1982)  for  saturation 
in  Figure  and  for  concentration  in  Figure  6.20.  The  results  coincide 

almost  exactly  for  both  early  and  late  time  so  only  one  curve  can  be  shown  for 
each  time.  Although  the  SUTRA  results  are  obtained  with  a  non-iterative  solu¬ 
tion  and  small  time  steps,  similar  results  may  be  obtained  with  longer  time 
steps  and  a  few  iterations  per  step.  The  concentration  front  lags  behind  the 
moisture  front  as  the  volume  between  the  concentration  front  and  top  boundary 
represents  the  water  which  has  infiltrated.  The  volume  of  water  between  the 

A 

moisture  front  and  concentration  front  represents  the  initial  water  in  the 
medium  which  has  been  displaced  by  the  infiltrating  water. 
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Figure  6.19 

Propagation  of  moisture  front  for  unsaturated  flow  and 
solute  transport  example.  Results  of  Van  Genuchten 
(1982)  and  SUTRA  shown  in  same  solid  line. 
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Figure  6.20 

Propagation  of  solute  slug  for  unsaturated  flow  and  solute 
transport  example.  Results  of  Van  Genuchten  (1982)  and 
SUTRA  shown  In  same  solid  line. 


SUTRA  SIMULATION  SETUP 


Chapter  7 
Simulation  Setu 


7.1  SUTRA  Data  Requirements 

The  following  is  a  complete  list  of  data  required  to  setup  a  simulation 
with  SUTRA.  (1)  The  information  included  in  the  list  is  the  parameter  name 
used  in  this  report  (if  it  has  been  mentioned),  (2)  the  parameter  units,  (3) 
the  parameter  name  in  the  input  data  list,  and  (4)  a  short  explanation  of  the 
parameter . 


Mesh  and  coordinate  data 


2 


g 

X 

lL/s  ] 

GRAVX 

X-component  of  gravity  vector 

g 

V 

2 

ll/s  1 

GRAVY 

y-component  of  gravity  vector 

X 

i 

U! 

X(  I) 

x  coordinate  of  node  i,  for  all 
nodes  in  mesh 

V 

i 

U) 

Y(  I) 

y  coordinate  of  node  i,  for  all 
nodes  in  mesh 

NN 

NN 

total  number  of  nodes  in  mesh 

I IN( 1-4) 

counter-clockwise  nodal  incidence 
list  in  each  element 

IEDGE( 1-4) 

ordered  list  of  pinch  nodes  in  each 
element  according  to  Figure  S.5 

NE 

NE 

total  number  of  elements  in  mesh 

NPTNCH 

total  number  of  pinch  nodes  in  mesh 

NBI 

full  band-width  of  global  banded 
matrix 
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a  fraction  of  an  element  per  time  step.  Broad  fronts  with  low  gradient  in  con¬ 
centration  or  temperature  have  adequate  temporal  discretization  when  time  steps 
are  chosen  to  move  the  front  one  or  more  elements  pc*  r  step. 

Usually  a  constant  time  step  size  is  <  hosen  for  transport  simulation  when 
flow  velocities  remain  relatively  constant  during  a  simulation.  For  saturated 
flow  and  transport,  if  adequate  temporal  pressure  discretization  would  allow 
larger  r  i  me  steps  than  the  temporal  transport  discretization,  then  a  pressure 
solution  mav  be  done  onlv  everv  n  time  steps  for  transport.  For  example,  if 
r he  adequate  pressure  time  step  is  ten  times  that  of  transport,  then  SI'TRA  input 
data  requires  the  specification:  NPCYC  =  10,  Nl'CYC  =  1. 

7. 1  Program  Dimensions 

All  vector  and  array  dimensions  in  the  SUTRA  computer  code  which  mav  vary 
between  simulations  are  combined  for  user  convenience  in  three  large  artavs,  RM, 
KV ,  arul  I  MV .  These  arr  tvs  are  dimensioned  by  the  user  in  the  main  routine  for 

SI'TRA.  No  other  arrays  need  he  dimensioned.  RM  contains  all  of  the  real 

matrices  in  the  code,  KV  contains  all  of  the  real  vectors,  and  I MV  contains 
all  of  the  integer  matrices  and  vectors.  The  dimensions  required  for  these 
ttr  tvs ,  RMD1M,  RVDlM,  and  IMVDIM,  must  be  specified  in  the  main  program  t o  values 

p, re  iter  than  or  equal  to  those  required.  The  required  values  are  given  bv 

re  1  at i  i  ns  similar  to: 


KMD1M  =  2<  NN  )  i  N'H  1  ) 


(  7  .  ) 


r>  i  Unsaturated  flow  simulation  requires  at  least  as  line  discretization  as 
does  transport.  Spatial  instability  appears  as  an  oscillation  in  saturation 
values.  Unsaturated  flow  parameters  mav  vary  sharply  in  space,  especially  dur¬ 
ing  wetting  events.  A  rule-of-thumb  is  to  design  the  mesh  to  have  at  least  five 
elements  across  a  saturation  tront. 

7)  Discretization  in  time  is  done  hv  choosing  the  size  of  time  steps.  Actual 
time  step  sizes  mav  he  is  large  a.s  possible  while  providing  adequate  discretization 
of  p.irimeter  changes  in  rime.  As  with  spatial  d  i  sc  ret  i  zat  ion ,  the  adequacy  of  a 
temporal  discretization  nnv  he  tested  only  hv  comparing  results  of  simulations  car¬ 
ried  out  with  different  time  step  sizes. 

for  saturated  flow  simulation,  temporal  discretization  begins  with  fine  time 
steps  which  may  become  significantly  larger  as  the  system  response  slows.  The 
time-step  multiplier  feature  is  provided  in  SUTRA  input  data  to  allow  this  type 
of  temporal  <  1  i sc  ret i zat  ion. 

lot  unsaturated  flow  simulation  with  SUTRA,  temporal  discretization  must  be 
fine  enough  to  keep  saturation  changes  at  each  node  to  he  small  over  any  time 
step.  \  rule-of-thumb  is  that  over  a  time  step,  the  maximum  saturation  change 
is  thou  I  0.1. 

lor  transport  simulation,  temporal  changes  in  concentration  or  temperature 
at  a  point  in  spate  are  often  due  to  the  movement  of  fronts  with  the  fluid  flow, 
['herefore,  adequate  disc  ret  i  zat  ion  of  these  parameters  in  time  is  often  related 
to  both  fluid  velocity  and  spatial  gradients  in  the  parameters.  Tilt1  higher  the 
longitudinal  spitial  gradient  and  fluid  velocity,  the  smaller  the  time  step  re¬ 
quired  for  adequite  temporal  d i scret  i zat ion.  A  general  guideline  is  that  rela¬ 
tively  sharp  fronts  require  time  d i sc  ret  i zat  ion  which  allows  them  to  move  on  1 v 


While  (7.4)  deals  with  adequate  discretization  tor  numerical  stability  it 
may  be  interpreted  from  another  point  ot  view.  Taken  in  combination  with  the 
considerations  of  guideline  (2)  requiring  at  least  five  elements  across  a  front, 
(7.4)  implies  that,  a  minimum  front  width  which  may  be  simulated  when  the  mesh  is 
designed  according  to  :\1.  ~  4c<|  is  20a  .  Thus  for  early  times  following  onset 

of  localized  energy  or  solute  source,  the  sharp  front  that  should  result,  may  be 
simulated  inaccurately  as  its  width  is  less  than  20a^. 

4)  Discretization  for  transverse  dispersion  also  may  be  related  to  dis- 
persivitv.  Although  an  exact  guideline  is  not  given,  the  object  of  transverse 
discretization  is  to  make  the  local  element  dimension  perpendicular  to  a  stream¬ 
line  small  relative  to  the  tola  1  transverse  di spurs iv i ty : 

AL.,.  <  c*_  +  r— ■  I  f  S  0  +  (  1  -f.  )  o  I  (7.5) 

I  T  |  v  I  [  w  w  s  J 

where  ALj,  is  the  local  element  dimension  transverse  to  the  flow  direction.  In 
the  case  where  the  transverse  mixing  rather  than  diffusion  dominates  the  trans¬ 
verse  flispersion  an  adequate  but  stringent  rule-of-thumb  may  be,  Ab^  <  lOa^, 
although  simulation  results  should  be  compared  for  various  transverse  disereti- 
zat  i oris  . 

5)  Kadial /cylindrical  meshes  with  a  well  require  very  fine  discretization 
near  the  center  axis  to  accommodate  the  sharply  curving  pressure  di  stribt  t.  ion . 
The  radial  element  dimensions  mav  increase  outward  and  become  constant  at,  for 
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where  AL  is  the  local  distance  between  element  sides  along  a  streamline  of 

Li 

flow.  Spatial  instability  appears  as  one  or  more  oscillations  in  concentration 

or  temperature.  Stability  is  guaranteed  in  all  cases  when  Pe  <  2,  which  gives 

m 

a  criterion  for  choosing  a  maximum  allowable  element  dimension,  AL^,  along  the 

local  flow  direction.  This  criterion  significantly  affects  discretization. 

Spatial  stability  is  usually  obtained  with  SUTRA  when 

Pe  <  4  (7.2) 

tn 

which  gives  a  less-stringent  criterion.  Mesh  design  according  to  the  criterion 
is  critical  when  concentrations  or  temperatures  change  significantly  along 
streamlines,  such  as  when  a  front  is  propagated  in  the  direction  of  flow.  When 
concentrations  or  temperatures  exhibit  small  changes  along  streamlines,  then 
the  criterion,  (7.2)  may  safely  be  violated,  even  by  a  few  orders  of  magnitude, 
without  inducing  spatial  instability.  An  example  of  this  may  be  cross-sectional 
simulation  of  an  aquifer  containing  fresh  water  and  salt  water.  In  such  a  case, 
flow  often  is  directed  parallel  to  the  front  between  fresh  water  and  salt  water, 
allowing  use  of  discretization  with  large  mesh  Peclet  numbers. 

In  the  typical  case  of  solute  or  energy  transport  with  longitudinal  dis¬ 
persion  primarily  due  to  longitudinal  mixing,  the  mesh  Peclet  number  becomes: 


Pe 

m 


(7.3) 


A  discretization  rule-of-thumb  for  simulation  with  SUTRA  which  guarantees 
spatial  stability  in  most  cases  is: 

AL  S  4a 

L  Li 


(7.4) 


distinct  layers  of  permeabi 1 i t v .  Each  node  at  the  boundary  of  these  layers 
experiences  some  average  of  the  two  permeabilities  rather  than  either  one. 

Thus,  no  node  in  the  system  experiences  the  assigned  low  permeability  of  cron¬ 
fining  Laver,  and  the  three-laver  discretization  is  inadequate.  More  layers  of 
elements  are  required  in  each  unit  to  obtain  adequate  discretization  although 
the  model  always  experiences  an  average  permeability  in  the  elements  making  up 
the  boundaries  of  the  units.  Further  refinement  of  discretization  would  be  re¬ 
quired  to  tepresent  the  pressure  distribution  should  accurate  simulation  of 
sharpl v-varving  pressures  across  the  confining  layer  be  required. 

Discretization  of  the  spatial  distribution  of  transport  variables,  con¬ 
centration  or  temperature,  often  is  that  which  requires  the  finest  mesh.  The 
spatial  distributions  of  these  variables  often  include  a  'front'  at  which  the 
concentration  or  temperature  changes  sharply  from  high  values  on  one  side  to 
low  values  on  the  other  side.  A  rule-of-thumb  is  that  at  least  five  elements 
should  divide  the  front  in  order  to  guarantee  that  the  simulated  front  width 
arises  from  simulated  physical  processes  rather  than  from  spreading  due  to 
inadequate  discretization.  When  such  fronts  travel  with  the  flow  across  a  mesh 
during  simulation,  then  the  mesh  must  be  designed  fine  enough  to  adequately 
represent  the  front  at  all  points  along  its  path.  In  regions  external  to  the 
front  path,  coarser  discretization  is  usually  adequate,  and  an  expanding  mesh 
or  pinch  nodes  may  be  used  to  design  the  discretization  in  this  region. 

3)  The  spatial  stability  of  the  numerical  approximation  of  the  unified 
transport  equation  (2.52)  depends  on  the  value  of  a  mesh  Peclet  number,  Pem, 
given  by: 
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ferences  in  the  results,  then  the  coarser  simulation  indeed  has  been  adequately 


discretized. 

Some  general  guidelines  for  obtaining  adequate  discretization,  both  for 
parameter  representation  and  for  accuracy  and  stability  of  numerical  methods 
are  given  below. 

1)  Nodes  are  required  where  boundary  conditions  and  sources  are  specified. 
Should  accurate  simulation  of  processes  near  these  specified  points  be  required, 
then  a  finer  mesh  is  needed  in  these  areas. 

2)  A  finer  mesh  is  required  where  parameters  vary  faster  in  space.  This 
is  often  the  case  near  sources  or  boundary  conditions  specifying  inflows  of 
fluid,  solute  or  energy.  The  fineness  required  is  that  which  makes  the  nodewise, 
cellwise,  or  elementwise  discretization  of  the  parameter  values  a  good  represen¬ 
tation  of  the  actual  distributions.  When  a  parameter  distribution  is  known  a 
priori,  then  this  discretization  is  straightforward.  However,  when  the  parameter 
distribution  depends  on  the  simulation  results  then  judgement  must  be  exercised 
in  discretization,  and  the  result  may  be  tested  by  experiment  with  various  dis- 
cret izations . 

It  is  important  to  recognize  that  each  node  or  element  does  not  alone  rep¬ 
resent  a  physical  entity  in  an  aquifer  system.  This  is  demonstrated  in  the 
following  example  which  shows  that  one  layer  of  elements  is  not  a  good  repre¬ 
sentation  in  cross  section  of  a  semi -confining  layer  or  aquifer  unit.  Although 
permeability  is  specified  elementwise  and  the  permeability  of  two  aquifer  units 
separated  by  confining  layer,  viewed  in  cross-section,  is  clearly  represented 


visually  bv  three  layers  of  elements,  the  numerical  model  does  not  'see'  three 


7.2  Discretization  Ru les-of-Thumb 

Proper  discretization  in  space  and  time  is  the  vital  factor  in  obtaining 
accurate  simulation  of  the  physics  of  flow  and  transport  with  a  numerical  model 
such  as  SUTRA.  Adequate  discretization  is  vital  for  two  reasons:  1)  The 
ability  of  a  model  to  represent  the  variations  in  system  parameters  and  to 
simulate  complex  processes  depends  on  the  fineness  of  discretization.  2)  The 
accuracy  and  stability  of  the  numerical  methods  used  to  represent  system 
processes,  in  particular,  transport,  depends  on  the  spatial  and  temporal 
discretization.  This  section  describes  some  general  guidelines  for  designing 
adequate  discretization  for  simulation  with  SUTRA. 

A  'sufficiently  good'  discretization  allows  for  accurate  simulation  of  the 
processes  and  parameter  variations  at  the  scale  of  interest,  and  thus  the 
goodness  of  a  discretization  is  a  relative  rather  than  absolute  factor.  A  better 
discretization  is  always  obtained  by  making  existing  discretization  finer,  but 
the  finer  the  discretizations  are,  the  more  computationally  expensive  the  simu¬ 
lations  become. 

Relative  to  a  certain  adequate  level  of  fineness,  even  finer  discretizations 
do  not  practically  improve  the  accuracy  of  simulation.  In  contrast,  discretiza¬ 
tion  that  is  too  coarse  may  completely  obscure  parameter  variations  and  processes 
of  interest  in  a  simulation,  and  give  highly  inaccurate  results.  Unfortunately, 
simulation  results  based  on  inadequate  discretization  may  appear  to  be  a  reasonably 
good  representation  of  flow  and  transport  physics  in  a  particular  system.  The 
only  way  to  explicitly  check  for  inadequate  discretization  of  a  system  is  to  simu¬ 
late  with  a  discretization-  that  is  assumed  to  be  adequate  and  then  with  a  signi¬ 
ficantly  finer  discretization  and  compare  results.  If  there  are  no  telling  dif- 
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(m-/s|  STGMAW  for  solute  transport:  molecular  dif- 

f u s i v i t v  of  solute  i n  f 1 u i d 


RVDIM  =  (NNVHNN)  +  (  N'EV+8 )  (  NE )  +  (NBCN) 3 


(7.7) 


+  (  NOBS+1  )  (  NTOBS+2  )  2  +  N’TOBS  +  5 


and 


IMVDIM  =  ( NE ) 8  +  NN  +  (NPINCH)3  +  NSOP  +  NSOU  (7.8) 

+  ( NBCN )  2  +  NOBS  +  N'TOBS  +  12 


NN 

NE 

NBI 

NSOP 

NSOU 

NPBC 

NUBC 

NBCN 

NPINCH 

NOBS 

NTOBS 

NNV 

NEV 


=  number  of  nodes 

=  number  of  elements 

*  full  band  width  of  matrix 

*  number  of  fluid  source  nodes 

=  number  of  solute  or  energy  source  nodes 

=  number  of  specified  pressure  nodes 

=  number  of  specified  U  nodes 

=  NPBC  +  NUBC 

“  number  of  pinch  nodes 

=  number  of  observation  nodes 

”  number  of  observat  n  time  steps  (max) 

=  number  of  vectors  NN  long  *  approx.  30  (fixed) 

*  number  of  vectors  NE  long  *  approx.  10  (fixed) 


The  actual  relations  and  values  are  listed  in  the  main  routine  and  should  be 
checked  there  for  the  most  recent  SUTRA  model  version.  These  dimensions  may 
be  greater  than  but  not  less  than  the  values  given  by  the  relations  equivalent 
to  (7.6),  (7.7)  and  (7.8)  in  the  main  routine. 


7.4  Input  and  Output  Files 

The  SUTRA  computer  code  requires  three  or  four  files  to  be  assigned  on  th 

computer  in  order  to  run  simulations.  Two  of  these  are  inpur  files  and  one  or 

two  of  these  are  output  files. 

INPUT  FILES: 

UNIT-5  A  file  must  be  assigned  as  f or t ran-uni t -5  which  contains  SUTRA  input 
data  for  UNIT-5.  This  file  contains  all  of  the  data  necessary  for 
simulation  except  initial  conditions. 

UNIT-55  A  file  must  be  assigned  as  fortran-unit-55  which  contains  SUTRA  input 
data  for  UNIT-55.  This  file  contains  initial  conditions  of  pressure 
and  concentration  or  temperature  for  the  simulation  to  be  done. 

OUTPUT  FILES: 

UNIT-6  A  file  must  be  assigned  as  fortran-unit-6  on  which  printed  output 
of  the  simulation  will  be  placed. 

UNIT-66  An  optional  output  file  must  be  assigned  as  fortran-unit-66  if 

the  option  to  save  the  solution  of  the  most  recently  completed  time 
step  for  later  restart  is  chosen  in  UNIT- 5  when  (I  STORE  *  1).  Data 
will  be  written  to  this  file  in  a  format  equivalent  to  UNIT-55  data 
so  that  this  file  mav  later  be  used  as  UNIT-55. 

The  data  lists  and  formats  for  the  input  files  are  given  in  section  7.7, 

"SUTRA  Input  Data  List." 


7.5  User-Supplied  Programming 

When  SUTRA  is  used  for  simulation  of  systems  with  unsaturated  flow,  then 
the  user  must  code  the  desired  unsaturated  flow  functions  in  subroutine  UNSAT. 

When  SUTRA  simulation  includes  time-dependent  boundary  conditions  or  sources, 
then  the  desired  temporal  variations  must  be  coded  by  the  user  in  subroutine 
BCTIME . 

Subroutine  UNSAT 

The  general  operation  of  this  subroutine  is  described  in  section  5.7, 

"Program  Structure."  Given  a  single  value  of  pressure,  UNSAT  must  provide  val¬ 
ues  of  Sw,  (3Sw/3p),  and  kr.  UNSAT  consists  of  three  sections.  The  user  must 
supply  code  in  each  of  these  sections.  An  example  using  the  unsaturated  flow 
functions  (2.8),  (2.11),  and  (2.21a)  and  (2.21b)  is  given  in  the  listing  of 
Subroutine  UNSAT  in  APPENDIX  A,  "SUTRA  Program  Listing." 

The  first  section  requires  specification  of  saturation,  Sw,  as  a  function 
of  pressure,  p.  The  second  section  requires  specification  of  the  derivative  of 
saturation  with  respect  to  pressure,  p,  or  saturation,  Sw.  The  third  section 
requires  spec i f icat ion  of  the  relative  permeability,  kr,  as  a  function  of 
either  saturation,  Sw ,  or  pressure,  p.  The  pressure  value  which  is  passed  to 
UNSAT  is  the  projected  value,  the  most  recent  iterate  or  the  newly  obtained 
solution.  The  values  are  either  at  Gauss  points  or  at  nodes. 

Any  convenient  programming  algorithm  may  be  used  to  implement  these  functions 
in  UNSAT.  Some  possibilities  are:  use  of  explicit  expressions,  as  in  the  example 
use  of  data  statements;  use  of  logical  statements  to  give  piecewise  continuous 


functions;  or  use  of  READ  statements  to  input  new  data  to  the  functions  from  either 
UNIT-5  or  a  new  data  file.  Sometimes  functions  with  entry  pressure  or  residual 
saturation  require  that  functions  used  be  switched  when  passing  by  these  values. 
Logical  statements  which  check  Sw  or  p  values  may  be  used  to  switch  to  other 
functions  or  to  constant  values,  as  required. 

Subroutine  JBCT I ME 

The  general  operation  of  this  subroutine  is  described  in  section  5.7, 

"Program  Structure."  At  the  beginning  of  each  time  step,  BCTIME  must  provide: 
values  of  all  specified  time-varying  pressure  values  and  temperature  or  concen¬ 
tration  values  of  fluid  inflow  at  these  nodes;  values  of  specified  time-varying 
temperature  or  concentration;  values  of  specified  time-varying  fluid  sources 
(or  sinks)  and  temperatures  or  concentrations  of  these  flows  if  they  are  inflows; 
and  values  of  time  of  time-varying  energy  or  solute  mass  sources  (or  sinks). 

BCTIME  consists  of  four  sections,  each  dealing  with  one  of  the  above  types  of 
specification.  The  user  must  supply  code  in  the  section  (or  sections)  of  BCTIME 
which  specifies  the  particular  type  of  time-varying  boundary  condition  or  source 
desired. 

The  first  section  is  used  for  specifying  either  time  variation  of  pressure, 
or  time  variation  of  the  temperature  or  concentration  of  any  fluid  which  enters 
the  system  at  a  point  of  specified  pressure,  or  both.  The  coding  must  be  entered 
within  a  loop  which  checks  all  NPBC  specified  pressure  nodes  for  the  time-variability 
flag.  This  flag  is  a  negative  node  number  in  the  list  of  specified  pressure  nodes 
IPBC(IP).  The  counter  for  the  list  is  IP.  When  the  loop  finds  that  the  IP*1*1 
node  number,  IPBC(IP),  is  negative,  then  the  actual  node  number  is  given  by  I  ■ 
-IPBC(IP).  In  this  case,  the  user  must  supply  code  which  specifies  a  value 


239 


appropriate  for  the  current  time  step,  for  both  PBC(IP),  which  is  the  specified 
pressure  for  the  IP1^  specified  pressure  node  (node  I),  and  for  UBC(IP),  which 
is  the  specified  temperature  or  concentration  of  any  inflow  at  the  IP*-^1  speci¬ 
fied  pressure  node  (node  I).  The  loop  skips  over  the  positive  node  numbers  in 
the  list  IPBC( IP) . 

The  second  section  is  used  for  specifying  time  variation  of  temperature  or 
concentration.  The  coding  must  be  entered  within  a  loop  which  checks  all  NUBC 
specified  temperature  or  concentration  (U)  nodes  for  the  time-variability  flag. 
This  flag  is  a  negative  node  number  in  the  list  of  specified  U  nodes,  IUBC(IU). 
The  list  begins  in  the  ( NPBC  +  l)^h  element  of  IUBC  as  shown  in  the  description 
of  subroutine  BOUND  in  section  5.7,  "Program  Structure."  The  first  NPBC  elements 
of  IUBC  are  blank.  The  counter  for  the  list  is  IU.  If  the  loop  finds  that  the 
Iljth  node  number,  IUBC(NPBC  +  IU) ,  is  negative,  then  the  actual  node  number  is 
given  by  I  =  -IUBC(NPBC  +  IU) .  In  this  case,  the  user  must  supply  code  which 
specifies  a  value,  appropriate  for  the  current  time  step,  for  UBC(NPBC  +  IU), 
which  is  the  specified  temperature  or  concentration  for  the  IU*1*1  specified  U 
node  (node  I).  The  loop  skips  over  node  numbers,  IUBC(NPBC  +  IU),  which  are 
positive . 

The  third  section  is  used  for  specifying  time  variation  of  either  fluid 
sources  (or  sinks),  temperature  or  concentration  of  inflowing  fluid  at  sources, 
or  both.  The  coding  must  be  entered  within  a  loop  which  checks  all  NSOP  fluid 
source  nodes  for  the  time-variability  flag.  This  flag  is  a  negative  node  number 
in  the  list  of  fluid  source  nodes,  IQSOP(IQP).  The  counter  for  the  list  is  IQP. 
If  the  loop  finds  that  the  IQP^h  node  number  IQSOP(IQP),  is  negative,  then 
the  actual  node  number  is  given  by  I  *  -IQSOP(IQP).  in  this  case,  the  user  must 
supply  code  which  specifies  a  value  appropriate  for  'he  current  time  step,  for 
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both  QIN(l),  which  is  the  specified  fluid  source  for  node  1  (the  IQPr^  speci¬ 
fied  fluid  source  node),  and  for  UIN(I),  which  is  the  temperature  or  concentra¬ 
tion  of  inflowing  fluid  at  node  I.  The  loop  skips  over  node  numbers  in  the  list, 
IQSOP(IQP),  which  are  positive. 

The  fourth  section  is  used  for  specifying  time  variation  of  energy  or 
solute  mass  sources.  The  coding  must  be  entered  within  a  loop  which  checks  all 
NSOU  specified  energy  or  solute  mass  source  nodes  for  the  time-variability  flag. 
This  flag  is  a  negative  node  number  in  the  list  of  specified  energy  or  solute 
mass  source  nodes,  IQSOU(IQU).  The  counter  for  the  list;  is  IQU.  If  the  loop 
finds  that  the  IQU1-*1  node  number,  IQSOU(IQU),  is  negative,  then  the  actual 
node  number  is  given  by  I  =  -IQSOU(IQIJ).  In  this  case,  the  user  must  supply 
code  which  specifies  a  value  appropriate  for  the  current  time  step,  for  QUIN(I), 
which  is  the  specified  energy  or  solute  mass  source  for  node  I  (the  lQU^ 
specified  energy  or  solute  mass  source  node).  The  loop  skips  over  the  positive 
node  numbers  in  the  list,  IQSOU(IQU). 

The  current  time  at  the  end  of  the  present  time  step  in  seconds,  TSF.C,  and 
in  other  time  units  is  available  for  use  in  specifying  time  variations.  Any 
convenient  programming  algorithm  mav  be  used  to  implement  the  time-variations 
In  RCTIME.  Some  possibilities  are:  use  of  expressions  as  explicit  functions  of 
time  such  as,  for  example,  a  sine  function  to  represent  tidal  pressure  variations; 
use  of  data  statements  and  new  arrays  explicitly  dimensioned  in  BCTIME;  vise  of 
logical  statements  to  give  stepped  or  piecewise  continuous  functions;  or  use  of 
READ  statements  to  input  the  time-varying  values  directly  from  SUTRA  UNIT-S  or 
a  new  data  file.  If  different  functions  or  values  are  to  be  specified  at  various 
nodes,  then  the  user  must  also  supply  code  to  distinguish  which  fvinctions  apply 
to  which  specified  node  numbers. 
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7.6  Modes  and  Options 


S imul at  i on  mod e  s 

SLITRA  may  simulate  flow  and  transport  in  three  temporal  modes  for  either 
energy  or  solute  transport.  The  modes  are:  (1)  transient  flow  and  transport, 
(2)  steady  flow  with  transient  transport,  and  (3)  steady  flow  and  steady  trans¬ 
port,  where  mode  (1)  is  the  most  computationally  expensive  and  mode  (3),  the 
least  expensive.  Modes  (2)  and  (3)  are  not  applicable  to  all  problems.  The 
classes  of  problems  amenable  to  solution  by  each  node  is  given  below. 

( 1 )  Transient  F low  and  Transient  Transport 

Allows  for  simulation  of  any  physical  problem  which  SUTRA  deals 
with:  either  saturated  or  unsaturated  flow  or  both;  variable 

fluid  density  and  viscosity;  any  sorption  isotherm;  energy  or 
solutp  transport. 

(2)  Steadi-State  Flow  and  Transient  Transport 

Allows  for  simulation  of  a  restricted  class  of  SUTRA  problems: 
saturated  flow  only;  constant  fluid  density  and  viscosity;  any 
sorption  isotherm;  energy  transport  with  only  small  variations 
in  temperature,  or  solute  transport. 

(3)  Steady-State  Flow  and  Steady-State  Transport 

Allows  for  simulation  of  the  most  restricted  class  of  SUTRA  prob¬ 
lems:  saturated  flow  only;  constant  fluid  density  and  viscosity; 

linear  sorption  isotherm  only;  energy  transport  with  only  small 
variations  in  temperature,  or  solute  transport. 
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These  inodes  are  specified  in  UNIT-5  input  data  by  the  values  of  ISSFLO, 
ISSTRA,  and  SIMULA. 

Output  options 

A  number  of  output  options  are  available  which  help  to  interpret  SUTRA 
simulation  results.  These  are:  (1)  printer  plots,  (2)  velocity  output,  (3) 
budget  output,  and  (4)  observation  node  output.  The  first  three  options  require 
some  extra  computations  and  should  be  used  only  when  necessary,  as  the  extra 
calculations  are  done  for  each  printed  output. 

( 1 )  Printer  Plots 

Plots  are  available  which  are  printed  on  each  time  step  on  which 
there  is  output.  The  plot  is  a  map  of  three-digit  pressures, 
temperatures  or  concentrations  at  the  nodes  which  may  be  contoured 
by  hand  for  an  initial  view  of  simulation  results.  Either  a  pres¬ 
sure  plot  or  temperature  (concentration)  plot  is  output,  or  both  on 
each  time  step  with  output.  The  plot  consists  of  three  significant 
figures  of  the  pressure  or  temperature  (or  concentration)  value  at 
each  node  printed  approximately  at  the  nodal  location  in  a  map  scaled 
to  the  printer  paper.  The  map  may  be  oriented  either  across  the  output 
page  for  a  small  plot,  or  along  the  page  for  a  large  plot.  A  plot  of 
the  locations  of  node  numbers  is  provided  with  the  input  data  print-out. 
Unfortunately,  when  some  nodes  in  the  mesh  are  grouped  closely  relative 
to  the  others,  the  printed  three  digits  at  clustered  nodes  may  overlap 


and  obscure  the  values.  This  typically  occurs  near  the  center  axis  for 


meshes  in  cylindrical  coordinates.  Use  of  the  large  plot  may  separate 
the  values  but  the  plot  size  can  become  unwieldy.  Computer  graphics  con¬ 
touring  must  then  be  employed,  and  is  clearly  more  convenient  than  hand- 
contoured  printer  plots  when  available. 

( 2 )  Velocity  Output 

An  output  of  fluid  velocity  is  available,  the  information  in  which 
may  be  used  to  plot  velocity  vectors  everywhere  in  the  simulated 
spatial  region  with  computer  graphics  software  supplied  by  the  user. 

These  velocities  are  calculated  and  output  on  each  time  step  that  a 
pressure  solution  is  output.  One  velocity  is  calculated  in  each 
finite  element,  at  the  location  of  the  element  centroid,  as  described 
in  section  5.5,  "Velocity  Calculation  for  Output."  Velocity  output 
occurs  in  two  groups  of  values:  first,  the  magnitude  of  the  velocity 
vector  at  each  element  centroid,  and  second,  the  angle  measured  (with 
a  counter-clockwise  positive  value)  from  the  positive  x-axis  to  the 
velocity  vector  direction.  Note  that  velocity  values  are  lagged  one 
time  step  if  a  non-iterative  solution  is  used.  (In  this  case,  they  are 
calculated  not  with  the  new  pressure  solution,  but  with  the  solution  of 
the  previous  time  step  and  with  fluid  density  values  of  the  step  before 
that.  This  keeps  the  velocity  calculations  consistent  in  time.)  This 
option  is  controlled  by  UNIT-5  parameter,  KVEL. 

( 3)  Budget  Output 

A  fluid  mass  and  energy  or  solute  mass  budget  output  is  available  as 
an  aid  In  tracking  the  simulated  behavior  of  a  system.  The  budget  is 
not  a  check  on  numerical  accuracy  of  the  model  as  the  calculations 
involved  in  determining  the  budget  are  less  accurate  than  the  calcula- 


tions  used  to  carry  out  the  SUTRA  simulation.  The  budget  is  output  on 
each  time  step  with  printer  output,  and  tallies  total  system  changes  in 
fluid  mass,  and  energy  or  solute  mass  for  the  time  step.  Besides  the 
totals  of  these  quantities  for  the  entire  simulated  region,  the  budget 
lists  time  step  total  gains  or  losses  in  these  quantities  at  each  spec¬ 
ified  pressure  node,  fluid  source  node,  and  energy  or  solute  mass  source 
node  in  the  mesh.  More  information  about  the  budget  calculations  is 
given  in  section  5.6,  "Budget  Ca leu lat ions . "  The  option  is  controlled 
by  UNIT-5  parameter,  KBUDG. 

(4)  Observation  Node  Output 

An  observation  node  output  is  available  which  observes  pressure  and 
temperature  or  concentration  at  particular  nodes  in  the  system  during 
the  simulation,  and  outputs  the  observations  in  table  form  after  the 
last  time  step  of  the  simulation  has  been  completed.  For  each  observed 
node,  the  table  consists  of  three  columns  of  numbers:  the  time  of  the 
observation,  the  observed  pressure  value,  and  the  observed  temperature 
or  concentration  value.  Any  number  of  observation  nodes  (NOBS)  may  be 
chosen,  and  observations  may  be  requested  every  NOBCYC  time  steps. 


7.7  SUTRA  Input  Data  List 


L.ist  of  Input  Data  for  UNIT  S 

Model  Series:  SUTRA 

Model  Version:  V1284-2D 

Note  that  three  arrays  in  the  main  routine  of  the  code  need  to  be 
dimensioned.  The  procedure  for  choosing  dimensions  is  listed  in  the 
main  routine  itself,  near  the  place  where  the  dimensions  need  be 
spec i f i ed . 


DATASF.T  1:  Tnput  Data  Heading  (one  card) 

Variable  Format  Description 

SIMULA  2A6  For  energy  transport  simulation,  write 

"SUTRA  ENERGY  TRANSPORT". 

For  solute  transport  simulation,  write 
"SUTRA  SOLUTE  TRANSPORT". 

The  rest  of  the  card  is  not  used  by  SUTRA  and 
may  either  be  left  blank  or  may  be  used  to  note 
an  additional  label  for  this  UNIT  5  data  list. 


DATASET  2:  Output  Heading  (two  cards) 


Variable 

Format 

Description 

TITLE1 

80A1 

First  line  of  a  heading  for  the  input  data 
set . 

TITLE2 

80A1 

Second  line  of  heading  for  the  input  data 
set . 

These  two  lines  are  printed  as  a  heading 
on  SUTRA  output. 
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DATASET  3:  Simulation  Control  Numbers  (one  card) 


Variable 

Format 

Desc  ri pt i on 

NN 

15 

Exact  number  of  nodes  in  finite  element 
mesh . 

NE 

15 

Exact  number  of  elements  in  finite  element 

mesh . 

NBI 

15 

Full  bandwidth  of  global  banded  matrix.  NBI 
is  equal  to  one  plus  twice  maximum  difference 
in  node  numbers  in  the  element  containing  the 
largest  node  number  difference  in  the  mesh. 

This  number  is  critical  to  computational 
efficiency,  and  should  be  minimized  by 
careful  numbering  of  the  nodes  (see  Figure  7.1) 
Setting  NBI  too  small  causes  SUTRA  to  automa¬ 
tically  print  out  the  correct  value  and  stop. 

NPINCH 

15 

Exact  number  of  pinch  nodes  in  the  finite 
element  mesh. 

NPBC 

15 

Exact  number  of  nodes  at  which  pressure  is  a 
specified  constant  value  or  function  of  time. 

NUBC 

15 

Exact  number  of  nodes  at  which  temperature  or 
concentration  is  a  specified  constant  value  or 
function  of  time. 

NSOP 

15 

Exact  number  of  nodes  at  which  a  fluid 
source/sink  is  a  specified  constant  value 
or  function  of  time. 

NSOU 

15 

Exact  number  of  nodes  at  which  an  energy  or 
solute  mass  source/sink  is  a  specified  constant 
value  or  function  of  time. 

NOBS  IS  Exact  number  of  nodes  at  which  observations  will 

be  made.  Set  to  zero  for  no  observations. 


NTOBS  IS  Maximum  number  of  time  steps  on  which  observations 

will  be  made.  This  depends  on  both  the  number  of 
time  steps  in  the  simulation  (DATASET  6),  and  on 
the  frequency  of  observations  (DATASET  21).  NTOBS 
may  be  set  to  a  value  greater  than  that  needed. 

Set  to  zero  for  no  observations. 
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DATASET  15B:  Elempntwi.se  Data  (one  card  for  each  of  NE  elements) 


Variable 

L 

PMAX ( L ) 

PMIN<  U 

ANGLEX( D 

AF.MAX(  L> 

AI.M  1  N(  L) 

ATAVG(  l.) 


Format 


Descript  i  on 


no 


G10.0 


G10.0 


G10.0 


G10.0 


G10.0 


GIO.O 


Number  of  element  to  which  data  on  this 
card  refers. 

Scaled  maximum  permeability  value  of 
element  L,  kmax(L).  [ ) 

Scaled  minimum  permeability  value  of 
element  L,  km£n(L).  ( ) 

Isotropic  permeability  requires: 

PMIN( L)-PMAX( L) . 

Angle  measured  in  counterclockwise  direction 
from  +x-direction  to  maximum  permeability 
direction  in  element  L,  0^.  I u I 
Arbit  rary  when  both  PMIN(  L)**PMAX(  L) ,  and 
ALMAX(L)  •  ALMIN(L). 

Scaled  longitudinal  dispersivity  value  of 
element  L  in  the  direction  of  maximum 
permeability  PHAX(L),  «Lmax(L).  ( L ] 

Scaled  longitudinal  dispersivity  value  of 
element  I.  in  the  direction  of  minimum 
permeability  PMIN(L),  <*Lmin*L).  |L| 

Scaled  average  transverse  dispersivity  value 
of  element  L,  wj(L).  I L | 
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DATASF.T  ISA:  Seal**  Factors  for  Elementwise  Data  (one  card) 


Variable  Format  Description 

1UX  In  the  first  ten  columns  of  this  card 

write  "ELEMENT  ",  leaving  three 
columns  blank. 

PMAXFA  G10.0  The  scaled  maximum  permeability  values 

of  elements  in  DATASET  1  SB  are  multiplied 
by  PMAXFA  in  SUTRA.  May  be  used  to 
convert  units  or  to  aid  in  assignment  of 
maximum  permeability  values  in  elements. 

PMINFA  010.0  The  scaled  minimum  permeability  values 

of  elements  in  DATASF.T  1  SB  are  multiplied 
bv  PMINFA  in  SUTRA.  May  be  used  to  convert 
units  or  to  aid  assignment  of  minimum  - 
permeability  values  in  elements. 

ANOFAC  010. 0  The  scaled  angles  between  the  maximum 

permeability  direction  and  the  x-axis 
of  elements  in  DATASET  1  SB  are  multi¬ 
plied  by  ANOFAC  in  SUTRA.  May  be  used 
to  easily  assign  a  uniform  direction 
of  anisotropy  by  setting  AN0FA0=  angle, 
and  all  ANOl.F.Xl  l.)  =  l  .0  in  DATASET  1SB. 

Al.MANF  010.0  The  scaled  maximum  longitudinal  dis- 

persivities  of  elements  in  DATASF.T  1  5B 
are  multiplied  by  AI.MAXF  in  SUTRA.  May 
be  used  to  convert  units  or  to  aid  in 
assignment  of  di spersi vi. t  ies  . 

Al.MINF  010.0  The  scaled  minimum  longitudinal  dis- 

persivities  of  elements  in  DATASF.T  1  SB 
are  multiplied  bv  Al.MINF  in  SUTRA.  May 
be  used  to  convert  units  or  to  aid  in 
assignment  of  di spersivit ies . 

ATAV0F  010.0  The  scaled  average  transverse  disper- 

sivities  of  elements  in  DATASF.T  1  SB  are 
multiplied  bv  ATAV0F  in  SUTRA.  May  be 
used  to  convert  units  or  to  aid  in 
assignment  of  di spersi vi tv. 


DATASET  14R:  Nodewise  Data  (one  card  for  each  of  NN  nodes) 


Va  r iah  1  e 

Format 

Description 

l  I 

15 

Number  of  node  to  which  data 
refers,  i. 

on 

this 

card 

X<  1  I  ) 

010.0 

Scaled  x-coordinate 

of  node 

IT, 

xi  * 

(L| 

Y(  II  > 

010.0 

Scaled  y-coordinate 

of  node 

II  , 

y  i  • 

ILJ 

THICK (  I  I  ) 

010.0 

Scaled  thickness  of 

mesh  at 

node 

II . 

[L| 

In  order  to  simulate  radiaL  cross-sections, 
set  THICK(TI)  =  ( 2*  )  ( radi us j  )  ,  where 
radius.]  is  the  radial  distance  from  the 
vertical  center  axis  to  node  i . 

('.10. 0  Scaled  porosity  value  at  node  II,  |1] 


P0R<  I  I  ) 


DATASET  14A:  Scale  Factor  for  Nodewise  Data  (one  card) 


Va  ri able  Format 

5X 

SCALX  01 0.0 


SCALY  Cl  0.0 


SOALTH  GIO.O 


FORFAC  010.0 


Desc ript ion 


In  the  first  five  columns  of  this  card 
write  "NODE  ",  leaving  one  column  blank. 

The  scaled  x-coordinates  of  nodes  in 
DATASET  14B  are  multiplied  by  SCALX  in  SUTRA. 
May  be  used  to  change  from  map  to  field 
scales,  or  from  English  to  SI  units.  A  value 
of  1.0  gives  no  scaling. 

The  scaled  v- coordinates  of  nodes  in 
DATASET  14B  are  multiplied  by  SCALY  in  SUTRA. 
May  be  used  to  change  from  map  to  field 
scales,  or  from  English  to  SI  units.  A 
value  of  1.0  gives  no  scaling. 

The  scaled  element  (mesh)  thicknesses  at 
nodes  in  DATASET  14B  are  multiplied  by  SCALTH 
in  SUTRA.  May  be  used  to  easily  change 
entire  mesh  thickness  or  to  convert  English 
to  SI  units.  A  value  of  1.0  gives  no  scaling. 

The  scaled  nodewise  porosities  of  DATASET  1 4B 
are  multiplied  by  FORFAC  in  SUTRA.  May 
be  used  to  easily  assign  a  constant  porosity 
value  to  all  nodes  by  setting  PORFAC*poros i ty 
and  all  P0R(II)  =  1.()  in  DATASET  14B. 
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DATASET  13:  Orientation  of  Coordinates  to  Gravity  (one  card) 


Variab )e 
GRAVX 

GRAVY 


Format  De  9  cr  ip tip n 

G10.0  Component  of  gravity  vector  in 

+x  direction.  (L^/s) 

GRAVX  *  -|g|  (3ELEVATION/3x) , 
where  |g|  is  the  total  accel¬ 
eration  due  to  gravity  in  {  L*- / s  ] 

G10.0  Component  of  gravity  vector  In 

+  y  direction.  (L*-/s| 

GRAVY  -  -|g|  ( 3ELEVATION/3y) , 
where  |g|  is  the  total  accel¬ 
eration  due  to  gravity  in  (L^/sJ 
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DATASET  12:  Production  of  Energy  or  Solute  Mass  (one  card) 


Variable 

PRODFO 

PRODSO 

PROOF  1 

PRODS  1 


Format  Description 


G10.0  Zero-order  rate  of  production  in  the  fluid 

Yq.  |(E/M)/s|  for  energy  production, 
l.(Ms/M)/s|  for  solute  mass  production. 

G10.0  Zero-order  rate  of  production  in  the  immobile 

phase,  yg.  )(E/Mq)/sJ  for  energy 
production,  ( ( M s / Mq ) / s  j  for  adsorbate  mass 
production . 

G10.0  First-order  rate  of. solute  mass  production  in 

the  fluid,  y”.  | s  | 

Leave  blank  for  energy  transport. 

GIO.O  First-order  rate  of  adsorbat^  mass  production  in 

the  immobile  phase,  yt  .  |s  ) 

Leave  blank  for  energy  transport. 
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DATASET  1 L :  Adsorption  Parameters  (one  card) 

Variable  Format  Description 

ADSMOD  A10  For  no  sorption  or  for  energy  trans¬ 

port  simulation  write  "NONE"  beginning  in 
column  one,  and  leave  rest  of  card  blank. 

For  linear  sorption  model,  write 
"LINEAR"  beginning  in  column  one. 

For  Freundlich  sorption  model  write 
"FREUNDLICH"  beginning  in  column  one. 

For  Langmuir  sorption  model  write 
"LANGMUIR"  beginning  in  column  one. 

CHii  G10.0  Value  of  linear,  Freundlich  or 

Langmuir  distribution  coefficient, 
depending  on  sorption  model  chosen 
as  ADSMOD.  *  j .  | L j/MG I . 

CHI2  G10.0  Value  of  Freundlich  or  Langmuir 

coefficient,  depending  on  sorption 
model  chosen  as  ADSMOD. 

Leave  blank  for  linear  sorption. 

Xo.  |11  for  Freundlich. 

1  L^/Ms  1  for  Langmuir. 


2b8 


A 


DATASET  10:  Solid  Matrix  Properties  (one  card) 


Variable 


COMPMA 


Format  Descript  ion 

G10.0  Solid  matrix  c  ompressibility ,  a“(l-e)~l  de/3p. 

[M/(L-*2)]-l 


SIGMAS 


G10.0 


G10.0 


GIO.O 


Solid  grain  specific  heat,  c3.  (E/(M-°C)] 

(May  be  left  blank  for  solute  transport 
simulation. ) 

Solid  grain  diffusivity,  os. 

For  energy  transport  represents  thermal 
conductivity  of  a  solid  grain.  fE/(L*“C*s)j 
(May  be  left  blank  for  solute  transport 
simulation. ) 

Density  of  a  solid  grain,  p„.  (M/L^) 
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DATASET  9:  Fluid  Properties  (one  card) 


Variable 

COMPFL 

CW 

S IGMAW 

RHOW0 

DRHOW0 

DRWDU 

VISC0 


Format 

G10.0 

G10.0 

GLO.O 

G10.0 

G10.0 

G10.0 

G10.0 


Description 

Fluid  compressibility,  B“< 1 lo ) ( dp/ dp) . 

I M/( L* sz) I-1 .  Note,  specific  pressure 
storativitv  is:  S0p  »  (l-t)a  +  eB 

Fluid  specific  heat,  cw.  |E/(M,UC) I 
(Hay  be  left  blank  for  solute  transport 
simulation. ) 

Fluid  diffusivitv,  ow. 

For  energy  transport  represents  fluid 
thermal  conductivity,  I E/( L- “C* s  )  I . 

For  solute  transport  represents  molecular 
diffusivitv  of  solute  in  pure  fluid. 

|L2/s|. 

Density  of  fluid  at  base  concentration  or 
temperature.  |M/L3|. 

Base  value  of  solute  concentration  (as  mass 
fraction)  or  temperature  of  fluid  at  which 
base  fluid  density.  RHOW0  is  specified. 

I  Ms/M !  or  TCI. 

Fluid  coefficient  of  density  change  with 
concentration  (fraction)  or  temperature: 

0  =•  RHOW0  +  DRWDU  (  U-URHOW0 )  . 
iM/(L3-Ms> (  or  |M/(L3-UC) I 

For  solute  transport:  fluid  viscosity,  p, 
|M/L*s|.  For  energy  transport,  this  value 
is  a  scale  factor.  It  multiplies  the  vis¬ 
cosity  which  is  calculated  internally  in 
units  of  Ikg/m'sl.  VISC0  may  be  U3ed  for 
energy  transport  to  convert  units  of 
Ikg/m’sl  to  desired  units  of  viscosity. 
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DATASET  8:  Iteration  Controls  (one  card) 


Vari ab 1 e 


ITRMAX 


Format  Description 

110  Maximum  number  of  iterations  allowed  per 

time  step  to  resolve  non-linearities. 

Set  to  a  value  of  +  1  for  non-iterative 
solution ■  Mon-iterative  solution  may 
be  used  for  saturated  aquifers  when  density 
variability  of  the  fluid  is  small,  or  for 
unsaturated  aquifers  when  time  steps  are  chosen 
to  be  small 


RPMAX 


010.0  Absolute  iteration  convergence  criterion 

for  pressure  solution.  Pressure  solution 
has  converged  when  largest  pressure  change 
from  the  previous  iteration's  solution  of 
any  node  in  mesh  is  less  then  RPMAX.  May 
be  left  blank  for  non-iterative  solution. 


RUMAX 


C10.0  Absolute  iteration  convergence  criterion 

for  transport  solution.  Transport  solution 
has  converged  when  largest  concentration 
on  temperature  change  from  the  previous 
iteration's  solution  of  any  node  in  mesh 
is  less  than  RUMAX.  May  be  left  blank 
for  non-iterative  solution. 


DATASET  7:  Output  Controls  and  Options  (one  card) 


Variable 

N PR I  NT 

K NODAL 

KE1.MNT 

K INC  ID 

KPI.OTP 

KPLOTU 

KVF.L 

K  HI)  DO 


Format 


Descript  ion 


15 


f5 


15 


15 


15 


15 


I  5 


I  5 


Printed  output  is  produced  on  time  steps 
numbered:  n(NPRINT),  as  well  as  on  first 

and  last,  time  step. 


A  value  of  0  cancels  printout 
coordinates,  nodewise  element 
and  nodewise  porosities.  Set 
full  printout. 


of  node 
thicknesses , 
to  +1  for 


A  value  of  0  cancels  printout  of  element¬ 
wise  permeabilities  and  elementwise  dis- 
persivities. 

Set  to  +1  for  full  printout. 


A  value  of  0  cancels  printout  of  node 
incidences  and  pinch  node  incidences  in 
elements.  Set  to  +1  for  full  printout. 


Set  to  a  value  of  +1  for  contourable 
printer  plot  of  pressures  at  all  nodes 
in  mesh.  Set  to  0  to  cancel  pressure 
plot. 

Set  to  a  value  of  +1  for  contourable 
printer  plot  of  concentrations  or 
temperatures  at  all  nodes  in  mesh. 

Set  to  0  to  cancel  plot. 

Set  to  a  value  of  +1  to  calculate  and 
print  fluid  velocities  at  element  centroids 
each  time  printed  output  is  produced.  Note 
that  for  non-steady  state  flow,  velocities 
are  based  on  results  and  pressures  of  the 
previous  time  step  or  iteration  and  not  on 
the  newest  values. 

Set  to  0  to  cancel  option. 

Set  to  a  value  of  +1  to  calculate  and  print 
a  fluid  mass  budget  and  energy  or  solute 
mass  budget  each  time  printed  output  is 
produced . 

A  va  hie  of  0  cancels  the  opt  ion. 
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DATASET  6:  Temporal  Control  and  Solution  Cycling  Data  (one  card) 


Variable 

Format 

Descrij)t  ion 

ITMAX 

15 

Maximum  allowed  number  of  time  steps  in 

simulation. 

DELT 

G1  5.0 

Duration  of  initial  time  step.  |s) 

TMAX 

G15.0 

Maximum  allowed  simulation  time,  (s) 

SUTRA  time  units  are  always  in  seconds. 

Other  time  measures  are  related  as  follows: 

I  min |  =60.  | s  | 

[ h J  *  60.  | min ) 

!dj  =  24.  | hj 

( week )  =  7 .  j  d ) 

(mo)  =  30. 4  37 5  |d| 

lyrj  =  365.250  |d) 

ITCYC  110  Number  of  time  steps  in  time  step  change 

cycle.  A  new  time  step  size  is  begun  at 
time  steps  numbered:  1+  n  (ITCYC). 

DTMULT  G10.0  Multiplier  for  time  step  change  cycle. 

New  time  step  size  is:  ( DELT )( DTMULT ) . 

DTMAX  Cl  5.0  Maximum  allowed  size  of  time  step  when  using 

time  step  multiplier.  Time  step  size  is  not 
allowed  to  increase  above  this  value. 

NPCYC  15  Number  of  time  steps  in  pressure 

solution  cycle.  Pressure  is  solved 
on  time  steps  numbered:  n( NPCYC), 
as  well  as  on  initial  time  step. 

NUCYC  15  Number  of  time  step  in  temperature/ 

concentration  solution  cycle. 

Transport  equation  is  solved  on 
time  steps  numbered:  n( NUCYC)  as 
well  as  on  initial  time  step. 


Either 
NPCYC  or 
NUCYC 
must  be 
set  to  1 . 
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DATASET  5:  Numerical  Control  Parameters  (one  card) 


Variable 

UP 


GNU 


Format  Desc  r ipt i on 

G10.0  Fractional  upstream  weight  for 

stabilization  of  oscillations  in  results 
due  to  highly  advective  transport  or 
unsaturated  flow.  UP  may  be  given 
any  value  from  0.0  to  +1.0.  UP  •  0.0 
implies  no  upstream  weighting  (Galerkin 
method).  UP  ■  0.5  implies  50%  upstream 
weighting.  UP  ■  1.0  implies  full  (100%) 
upstream  weighting.  Recommended  value 
is  zero. 

Warning:  upstream  weighting  increases  the 
local  effective  longitudinal  dispersivity 
of  the  simulation  by  approximately 
(UP*(AL)/2)  where  AL  is  the  local  distance 
between  element  sides  along  the  direction 
of  flow.  Note  that  the  amount  of  this  in¬ 
crease  varies  from  place  to  place  depending 
on  flow  direction  and  element  size.  Thus  a 
non-zero  value  for  UP  actually  changes  the 
value  of  longitudinal  dispersivity  used  by 
the  simulation,  and  also  broadens  otherwise 
sharp  saturation  fronts. 

G15.0  Pressure  boundary  condition,  'conductance'. 

A  high  value  causes  SUTRA  simulated  pressure 
and  specified  pressure  values  at  specified 
pressure  nodes  to  be  equal  in  all  signifi¬ 
cant  figures.  A  low  value  causes  simulated 
pressures  to  deviate  significantly  from 
specified  values.  The  ideal  value  of 
GNU  causes  simulated  and  specified  pres¬ 
sures  to  match  in  the  largest  six  or  seven 
significant  figures  only ,  and  deviate  in 
the  rest.  Trial-and-error  is  required  to 
determine  an  ideal  GNU  value  for  a  given 
simulation  by  comparing  specified  pressures 
with  those  calculated  at  the  appropriate 
nodes  for  different  values  of  GNU.  An 
initial  guess  of  0.01  is  suggested. 
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DATASET  4:  Simulation  Mode  Options  (one  card) 


Variable  Format  Description 


IUNSAT  15  Set  to  +1  to  allow  simulation  of  unsaturated  and 

saturated  flow.  Set  to  0  to  allow  simulation  of 
only  saturated  flow.  When  unsaturated  flow  is 
allowed  (IUNSAT  *  1)  then  the  unsaturated  flow 
functions  must  be  programmed  by  the  user  in 
Subroutine  UNSAT. 

ISSFLO  15  Set  to  0  for  simulation  with  TRANSIENT 

groundwater  flow.  Set  to  +1  for  simulation 
with  STEADY-STATE  groundwater  flow.  If 
fluid  density  is  to  change  with  time,  then 
TRANSIENT  flow  must  be  selected. 

ISSTRA  15  Set  to  0  for  simulation  with  TRANSIENT  solute  or 

energy  transport.  Set  to  +1  for  simulation  of 
STEADY-STATE  transport.  Note  that  steady-state 
transport  requires  a  steady-state  flow  field. 

So,  if  ISSTRA  =  +1,  then,  also  set  ISSFLO  <*  +1 

IREAD  15  To  read  initial  condition  data  (UNIT  55) 

for  cold  start  (first  time  step  of  a 
simulation),  set  to  +1.  To  read  initial 
condition  data  (UNIT  55)  for  simulation 
restart  (to  read  data  which  has  previously 
been  stored  by  SUTRA  on  UNIT  66),  set  to  -1. 

ISTORE  15  To  store  results  of  most  recently  completed 

time  step  on  UNIT  66  for  later  use  as  initial 
conditions  on  a  restart,  set  to  +  1 .  To  cancel 
storage,  set  to  0.  This  option  is  recommended 
as  a  backup  for  storage  of  results  of  intermediate 
time  steps  during  long  simulations.  Should  the 
execution  halt  unexpectedly,  it  may  be  restarted 
with  initial  conditions  consisting  of  results  of 
the  last  successfully  completed  time  step  stored 
on  UNIT  66. 
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DATASET  16:  Data  for  Printer  Plot  (Two  or  three  cards  when  plot  has  been 

requested  by  DATASET  7) 

OMIT  when  no  plot  is  requested 

Variable  Format  Description 


Card  1:  (always  required  when  plot  is  requested) 

IDIRF.C  15  Chooses  plot  direction: 

Set  to  -1  for  small  plot  which  fits  across 
the  output  page. 

Set  to  +1  for  larger  plot  which  is  oriented 
along  the  output  page. 


N1.1NP1 

I  5 

Number 

of 

printer 

lines  per 

inch . 

NCHAPT 

15 

Number 

of 

printer 

characters 

per 

inch . 

NCHAPI, 

15 

Number 

of 

printer 

characters 

per 

output  line 

The  plotting  routine  prints  three  digits 
of  the  nodal  value  to  be  plotted  at  the  (x,y) 
location  of  the  node  on  a  map  of  the  mesh  which 
the  routine  constructs.  The  three  digits  are  not 
necessarily  the  first  three  digits  of  the  value 
to  be  plotted,  but  are  always  one  digit  to  the 
left  and  two  digits  to  the  right  of  the  decimal 
point.  Thus,  if  the  value  to  be  plotted  is 
1214.567,  then  the  digits  456,  are  printed 
at  the  nodal  location  on  the  output. 

Card  2:  ( include  this  card  only  when  pressure  plots  are  requested 
in  DATASET  7) 

PHASE  011.0  Value  for  scaling  plotted  pressures. 

The  pressure  value  to  be  plotted,  PppoT’ 

is  calculated  by  SUTRA  as 

ppj ot  “  (true  pressure  p^ / PHASE) 

PHASE  should  be  used  to  scale  out  powers  of 
ten  and  to  shift  the  sraled  digits  of  interest 
to  the  position  of  the  three  plotted  digits. 
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Va r 1  ah !e 

Card  i: 

U  BASF. 


Format  Dp  script  Ion 


(includo  this  card  only  when  temperature  or  concent  rat i on 
plots  are  requested  in  DATASET  7) 

Gl'i.O  Value  for  scaling  plotted  temperature 

or  concent  rat i on  values. 

The  value  to  be  plotted  hppoT  > 
calculated  by  SUTRA  as: 

Upj  0T=  (true  value  11  j /DBASE).  For 
example,  DBASE  mav  he  set  to  one-tenth 
of  the  highest  source  concent  rat  1  on  in 
the  system;  then  fractional  concentra¬ 
tions  relative  to  the  highest  concen¬ 
tration  are  plotted  with  digits  ranging 
from  000  to  999  which  represents  a  rel¬ 
ative  concentration  of  1.000  ( -0.999). 


DATASET  J  7 :  Data  for  Fluid  Source  and  Sinks  (one  card  for  each  of  NS  OF  fluid 

source  nodes  as  specified  in 
DATASET  i,  plus  one  blank  '-ardi 


( <  M  I  T  when  '.here  are  no  fluid  source  nodes 


\  triabi* 


I  ovnia  t 


De sc r  i or.  ion 


Number  of  node  ro  which  source/ sink  data  on 
this  card  refers . 

Specifying  the  node  number  with,  a  negative 
sign  indicates  10  SITKA  that  the  source  flow 
rare  or  concentration  or  temperature  of  the 
source  fluid  vary  in  a  specified  manner  with 
time.  information  regarding  a  rime-dependent 
source  node  must  he  programmed  by  the  user  in 
Subroutine  BtTIME,  and  should  not  be  included 
on  this  card . 


fluid  source  (or  sink)  which  is  a  specified 
const,  ant  value  at  node  iQ'.'k.  Vjy.  i.M/si 
A  positive  value  is  a  source  of  fluid  to  the 
aquifer.  Leave  blank  if  this  value  is  specified 
as  time-dependent  in  Subroutine  BCTIME. 

Sources  are  allocated  by  <-eil  as  shown  in 
Figure  7.2  for  equal -s  ized  elements.  For 
uruHiua l-s i zed  elements,  sources  are  allocated 
in  proportion  to  the  cell  length,  area  or  volume 
over  which  the  source  i I u i d  enters  the  svstem. 


Temperature  or  soiute  concentration  (mass 
fra*  'ion'  of  fluid  entering  the  aquifer 
which  is  t  specified  <  oust  ant  vilue  for  a 
tint'!  source  at  node  luff,  E ;  y .  i  "C  I  or 
i  M ..  /  M  j 

l,".ivi*  blank  if  this  value  is  specified  as 
t  ime-dependent  in  subrout  i  tie  Bt'TlMK. 


i  I  i ■  *•'!  i  tr.m*'d  i  a  t  i  v  t  •>  1  iov  l  »<>  a  i  i  X a1  >h 
t  I’t’ii  source  node  cards. 
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Figure  1/2 

Allocation  of  sources  and  boundary  fluxes 
in  equal-sized  elements. 


DATASET  18:  Data  for  Energy  or  Solute  Maas  Sources  and  Sinks 

(one  card  for  each  NSOl1'  energy  or 
solute  source  nodes  as  specified  in 
DATASET  3,  plus  one  blank  card) 


OMIT  when  there  are  no  energy  or  solute  source  nodes 


Variable  Format 


Description 


IQCl'  110  Number  of  node  to  which  source/sink  data  on  this 

card  refers. 

Specifying  the  node  number  with  a  negative 
sign  indicates  to  SUTRA  that  the  source  rate 
varies  in  a  specified  manner  with  time.  All 
information  regarding  a  time-dependent  source 
node  must  be  programmed  by  the  user  in 
Subroutine  BCTIME.  and  a  value  should  not  be 
included  in  this  card. 

Sources  are  allocated  by  ceil  as  shown  in  Figure 
7.2  for  equal-sized  elements.  For  unequal-sized 
elements,  sources  are  allocated  in  proportion  to 
the  cell  length,  area  or  volume  over  which  the 
source  energy  or  solute  mass  enters  the  system. 

OUINC  015.0  Source  (or  sink)  which  is  a  specified  constant 

value  at  node  1QCU,  ?j^-.  I  E/s  I  for  energy 
transport,  |Ms/s|  for  solute  transport.  A 
positive  value  is  a  source  to  the  aquifer. 

Leave  blank  if  IQCU  is  negative,  and  this  value 
is  specified  as  time-dependent  in  Subroutine 
BCTIME. 

Last  card: 

B  1.  A  N  K  C  A  R  U  I'lacod  immediately  following  all  NSOl' 

energy  or  solute  mass  source  node  cards. 
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DATASET  1^:  Data  for  Specified  Pressure  Nodes  (one  card  for  each  of  NPBC 

specified  pressure  nodes  as 
indicated  in  DATASET  3.  plus 
one  blank  card) 


OMIT  when  there  are  no  specified  pressure  nodes 


Var i ab  le 


Format 


Description 


Cards  1  to  NPBC: 


13  Number  of  node  to  which  specified  pressure 

data  on  this  card  refers.  .. 

Specifying  the  node  number  with  a  negative 
sign  indicates  to  SUTRA  that  the  specified 
pressure  value  or  inflow  concentration  or 
temperature  at  this  node  vary  in  a  speci¬ 
fied  manner  with  time.  information  re¬ 
garding  a  time-dependent  specified  pressure 
node  must  be  programmed  by  the  user  in 
Subroutine  BCTIME.  and  should  not  be  included 
on  this  card. 

G20.0  Pressure  value  which  is  a  specified  con¬ 
stant  at  node  1PBC.  I M / ( L - s - ) I 

Leave  blank  if  this  value  is  specified  as 
time-dependent  in  Subroutine  BCTIME. 

G20.0  Temperature  or  solute  concentration  of 

any  external  fluid  which  enters  the 
aquifer  at  node  IPBC.  I.'BC  is  a  specified 
constant  value.  I VC I  or  I M s / M I 
Leave  blank  if  this  value  is  specified  as 
time-dependent  in  Subroutine  BCTIME. 


.a  st  card: 


B  L  A  N  K  C  A  R  D 


Placed  immediately  following  all  NPBC 
specified  pressure  cards. 


DATASET  20:  Data  for  Specified  Concentration  or  Temperature  Nodes 

(one  card  for  each  of  NUBC 
specified  concentration  or 
temperature  nodes  indicated  in 
DATASET  3,  gliis  one  blank 
card ) 


OMIT  when  there  are  no  specified  concentration  or  temperature  nodes 


Variable  Format 


Descript  ion 


Cards  1  to  NUBC: 
IUBC  15 


UBC 


G20.0 


Cast  card: 

B  l.  A  N  K  CARD 


Number  of  node  to  which  specified  concentration 
or  temperature  data  on  this  card  refers. 
Specifying  the  node  number  with  a  negative 
sign  indicates  to  SUTRA  that  the  specified 
value  at  this  node  varies  in  a  specified 
manner  with  time.  This  time-dependence  must 
be  programmed  by  the  user  in  Subroutine 
BCTIMI',  and  a  value  should  not  be  included  on 
this  card. 

Temperature  or  solute  concentration  value 
which  is  a  specified  constant  at  node  IUBC. 

PC|  or  |  Ms/M  ] 

Leave  blank  if  IUBC  is  negative  and  this  value 
is  specified  as  time-dependent  in  Subroutine 
BCTIME. 


Placed  immediately  following  all  NUBC 
specified  temperature  or  concentration  cards. 


DATASET  21:  Observation  Node  Data  (one  card  plus  one  card  for  each 

(NOBS+16)/16  (integer  arithmetic) 
observation  nodes  as  specified  in 
DATASET  3) 

OMIT  when  there  are  no  observation  nodes 

Variable  Format  Description 


Card  1 : 

NOBCYC  110  Observations  of  pressure  and  temp¬ 

erature  or  concentration  will  be 
made  at  all  observation  nodes 
specified  below  every  NOBCYC  time 
steps . 

Cards  2  to  ( NOBS+1 6 ) / 16 

INOB  1615  Node  numbers  of  observation  nodes. 

(Sixteen  nodes  per  card.) 

Enter  a  value  of  zero  as  an  extra 
observation  node  number  following 
the  last  real  observation  node  in 
order  to  indicate  to  SUTRA  that 
there  are  no  more  observation  nodes. 
This  will  require  one  extra  card  if 
there  is  an  exact  multiple  of  16 
observation  nodes. 


DATASET  22:  Element  Incidence  and  Pinch  Node  Data  (one  or  two  card6  for 

each  of  NE  elements) 


Variable  Format  Description 

Card  A:  (always  required  for  each  element) 


EL  16  Number  of  element  to  which  data  on  this  card 

(and  the  optional  next  card)  refers. 

If  pinch  nodes  exist  in  element  LL,  then  the 
element  number  must  be  specified  with  a 
minus  sign. 


NODE  INCIDENCE  LIST 


1 1 N  (  1  ) 

16 

Number 

of 

node  1 

1 1 N  (  2) 

16 

Number 

of 

node  2 

I I N(  3) 

16 

Number 

of 

node  3 

1 1 NI  4  ) 

16 

Number 

of 

node  4 

> 

Card  B: 

(OPTIONAL)  -is 

required 

immediately 

only  when  LL  is  negative 
is  positive) 


List  of  corner  node 
numbers  in  element  LL, 
beginning  at  any  node, 
but  taken  in  an  order 
counterclockwise  about 
the  e lement . 


following  Card  A 
,  OMIT  when  LL 


I  EDGE!  1  > 

16 

I  F.DGE<  2  ) 

16 

IEDGE< 3) 

16 

IF.DGE(  4) 

16 

PINCH-NODE^  INCIDENCE  LIST 

V 


Node  number  of 
pinch  node  at 
mid-point  of 
edge  between 
nodes : 


ITN( 1  )  and  I INI  2  ) 
I  INI  2)  and  IIN( 3) 
T INI  3 )  and  I  TNI  4 ) 
1 1 N( 4 )  and  I IN(  1 ) 


A  blank  in  the  list  of  pinch  node 

numbers  indicates  that  no  pinch  node  exists 

on  that  particular  edge  element  I.I.. 


End  of  Input  Data  List  for  UNIT  S 
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List  o f  Input  Da t a  for  UNIT  55 

Model  Series:  SUTRA 

Model  Version:  V1284-2D 


The  data  In  UNIT  55  need  be  created  by  the  user  only  for  Cold-Starts  of  SUTRA 
simulation  (i.e.:  for  the  first  time  step  of  a  given  simulation). 

The  Restart  options  are  controlled  by  IREAD  and  ISTORE  in  DATASET  4  of  UNIT  5 
data.  SUTRA  will  optionally  store  final  results  of  a  simulation  in  a  form 
directly  useable  as  UNIT  55  for  later  restarts. 


DATASET  1:  Simulation  Starting  Time  (one  card) 

Variable  Format  Description 

TSTART  G20.0  Elapsed  time  at  which  the  initial  conditions 

for  simulation  specified  in  UNIT  55  are 
given .  | s  ) 

This  sets  the  simulation  clock  starting 
time.  Usually  set  to  a  value  of  zero  for 
Cold-Start . 


L _  ,s  blank 


DATASET  2: 


Initial  Pressure  Values  at  Nodes 


Variable 
PVEC< 1 1  ) 


Requires  (  NN  +  3)/4  cards.  (Done  by  integer  arithmetic.) 

Format  Description 

4020. 0  Initial  (starting)  pressure  values  at  time, 

TSTART ,  at  each  of  NN  nodes.  (M/(L-s2)] 

Four  values  per  card,  in  exact  order  of  node 
numbers.  These  values  are  arbitrary  and  may  be 
left  blank  if  the  steady-state  flow  option  in 
DATASET  4  of  UNIT  5  has  been  chosen.  Initial 
hydrostatic  or  natural  pressures  in  a  cross- 
section  may  be  obtained  by  running  a  single 
steady-flow  time  step  with  the  store  option. 

Then  the  natural  pressures  are  calculated  and 
stored  on  UNIT  66,  and  may  be  copied  to  the  Cold- 
Start  UNIT  55  file  without  change  in  format,  as 
initial  conditions  for  a  transient  run. 
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DATASET  3:  Initial  Temperature  or  Conrentrat i on  Values  at  Nodes 

Requires  (NN+31/4  cards.  (Done  by  integer  arithmetic.) 

Variable  Format  Desc  r  ipt ion 

UVEC(II)  4G20.0  Initial  (starting)  temperature  or  solute 

concentration  (mass  fraction)  values  at 
time,  TSTART,  at  each  of  NN  nodes. 

I“C|  or  I Mg / M | 

Four  values  per  card,  in  exact  order  of 
node  numbers. 


End  of  fnput  Data  List  for  UNIT  53 
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Appendix  A 

Nomenclature 

Generic  Units 

ID 

unity  -  Implies  dimensionless  or  (L°j 

(E  j 

energy  units  or  (M'L^/s^J 

IL] 

length  units 

[L?] 

fluid  volume 

Ug] 

solid  grain  volume 

(M| 

fluid  mass  units 

lMG) 

solid  grain  mass  units 

[m3J 

solute  mass  units 

Units 

f°c] 

degrees  Celcius 

(cm] 

centimeters 

(dj 

days 

Igr] 

grams 

(hj 

hours 

UJ 

Joules  or  [kg-m^/s^ 

[kg] 

kilograms  mass 

[  lbm  ] 

pounds  mass 

|m] 

meters 

[min  ] 

minutes 

(mo) 

months 

M 

seconds 

I  PREVIOUS  PAGE 
IS  BLANK 

Special  Notation 


a? 


d¥ 


3t  or  dt 


time  derivative  of  ¥ 


v*iv  +  iv  +  kv 
-  -  x  **■  y  -  z 


Vf  .  i  ”  +  4  «  +  U  « 
1  *  1  3y  -  3z 


—  3x 


„  3v  .  3v  3v 

v-v  *  — x  +  r-y  +  — z 
-  3x  3yJ  3z 


i  *>  1,NN  -  1,2, 3, 4 . ,  NN 

HI 

lYl 

?  or^ 

A¥ 


‘BC 


fi  - 


IN 


KG 


vector  v  with  components  in 
i,  j[,  and  IS  directions 

gradient  of  scale  ¥ 


divergence  of  vector  v 

index  i  takes  on  all  integer 
values  between  one  and  NN 

absolute  value  of  scalar  ¥ 

magnitude  of  vector  v 

approximate  or  discretized  value 
of  ¥ 

discrete  change  in  value  of  ¥ 
(e.g  :  A¥  -  ¥j  -  ¥2> 

initial  condition  or  zeroth 
value  of  ¥ 

value  of  ¥  as  specified  at  a 
boundary  condition  node 

value  of  ¥  at  node  or  cell 
i  or  j 

value  of  ¥  in  inflow 

value  of  ¥  at  the  KG*"*1  Gauss 
point 

value  of  ¥  in  element  L 

value  of  a  vector  v  along 
a  stream  line 


value  of  a  vector  v  in  x 
direction 


value  of  a  vector  v  in  y 
direction 
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rv 


v5 

value  of  a  vector  v  in  the  £ 
direction 

V 

n 

value  of  a  vector  v  in  the  q 
direction 

value  of  ¥  in  element  L 

^n+l 

value  of  ¥  at  time  step  n 

value  of  ¥  at  time  step  n+1 

Jn+1)* 

¥ 

value  of  4*  evaluated  at 
previous  time  step  on  first 
iteration,  and  at  most  recent 
iteration  on  subsequent 
iterations 

mPr°j 

value  of  ¥  projected  from 

T 

previous  time  steps  on  first 

iteration 

V* 

consistently  evaluated  velocity 

* 

pg 

consistently  evaluated  density- 
gravity  term 

NN 

t£,  ’i  ‘  V  V  V  • 

.  +  <JT 

NN 

summation 

reek  Lowercase 


a 

(2.17) 

Im/(l*s2))-1 

Porous  matrix  compressibility 

(*L(x,y,t) 

(2.40b) 

(2.41) 

(LI 

Longitudinal  dispersivity  of 
solid  matrix 

WLmax<X-y> 

(2.42b) 

(L) 

Longitudinal  dispersivity  in 
the  maximum  permeability 
direction,  x 

P 

aLmin(x’y) 

(2.42b) 

(  L ) 

Longitudinal  dispersivity  in 
the  minimum  permeability 
direction,  x 

m 

x,y) 

(2.40b) 

(LJ 

Transverse  dispersivity  of 
solid  matrix 

B 

(2.15) 

(M/(L-S2)  f 1 

Fluid  compressibility 

ro<  x , y , t ) 

(2.25) 

1  F./Mg-sJ 

Energy  source  in  solid 
grains 
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s 

y 

o 

(2.37b) 

((M  / M ) / s  J 
s 

y”(x,y,t ) 

(2.25) 

[E/M- a ) 

w 

y 

o 

(2.37b) 

((M  / M ) / s ) 
s 

3 

ri 

(2.37b) 

(s'1! 

W 

ri 

(2.37b) 

[s'1  1 

6  .  . 

11 

(4.65a) 

e(x,y,t) 

(2.6) 

(11 

n 

(4.3) 

r.(C,C  ) 

I  S 

(2.32b) 

(m/mgI 

*"2(C’CS> 

(2.32b) 

(M/Mg-s] 

^3(C’Cs) 

(2.32b) 

IWS) 

X( x,y,t) 

(2.25) 

( E/(  s-L* “C) ) 

X 

s 

(2.26) 

(  E/  (  s • L • °C )  ) 

X 

w 

(2.26) 

[E/(s-L*°C)  J 

u 

(2.5) , <2. 6) 

vi 

(4.51) 

V 

(4.38) 

p 


Zero-order  adsorbate  mass 
production  rate 

Energy  source  in  fluid 

Zero-order  solute  mass 
production  rate 

First-order  mass  production 
rate  of  adsorbate 

First  order  mass  production 
rate  of  solute 

Kronecker  delta 

Porosity 

r|  local  coordinate 

First  general  sorption 
coefficient 

Second  general  sorption 
coefficient 

Third  general  sorption 
coefficient 

Bulk  thermal  conductivity 
of  solid  matrix  plus  fluid 

Solid  thermal  conductivity 
(about  X  ~  0.6  [ J/( s*m* “C) ) 
at  201>C)S 

Fluid  thermal  conductivity 
(about  X  ~  0.6  [ J/(  s-m- UC) ] 
at  20wC)W 

Fluid  viscosity 

Pressure-based  conductance 
for  specified  pressure  in 
cel  1  i 

Conductance  for  specified 
pressure  nodes 


(4.1) 


E  local  coordinate 


°o 

(2.4) 

IK/Ljl 

Base  fluid  density  at 

OC  or  T*T 

0  0 

p(x,y,t) 

(2.1) 

|M/Lj| 

Fluid  density 

- .  ^  t 

P 

(2.24) 

|mg/lg' 

Density  of  solid  grains 

s 

s 

(2.30) 

in  solid  matrix 

M 

o 1 

(2.17) 

!M/(L-SZ)  ! 

Integranular  stress 

■  /-V*'. 

0 

(2.47) 

Diffusion  in  solid  phase  in 

“* . 

s 

unified  transport  equation 

0 

(2.47) 

Diffusion  in  fluid  phase  in 

'  .A 

w 

unified  transport  equation 

9(x,y) 

(2.21a) 

1 u  1 

Angle  from  +x-coordinate 

-  •; 

axis  to  direction  of 
maximum  permeability,  x 

P 

_ • 

4>kv(x,y,t) 

(2.42b) 

r  i 

Angle  from  maximum  permea¬ 
bility  direction,  x  to 

local  flow  directioR,  (v/|v|) 

.  V- 

(3.4) 

Symmetric  bi-linear  basis 

•  V  •  ■ 

function  in  global  coordinates 

-  •  ? 

at  node  i 

.  , 

X1 

(2.34b) 

ILf/M  J 

Linear  distribution 

coefficient 

.  '  *  *  - 

X1 

(2.35b) 

>LfH' 

A  Freundlich  distribution 

■m 

coefficient 

X1 

(2.36b) 

IL3/M  1 

A  Langmuir  distribution 

1  \J 

coefficient 

'  V  V 

X2 

(2.36b) 

ilJ/m  i 

f  s 

Langmuir  coefficient 

’  ’  M 

X2 

(2.35b) 

11  1 

Freundlich  coefficient 

l 

(4.75) 

Energy  source  1  E/s  1  or 

solute  mass  source  |M  /M*sl 

s 

at  node  i 

• 

lit 

OUT. 

(4.75) 

Sink  of  energy  or  solute 

l 

mass  at  node  i 

Wi 


(4.43) 


Asymmetric  weighting 
function  in  global 
coordinates  at  node  i 


a  J  r'M.H'H  .■  ■  .■  J»u»  ymn  u  n,  >;-■  yry  »  ■ ^  -r™r  i  -  t.  ■■»■.-.- 


Greek  Uppercase 


r 

( 3.20) 

External  boundary  of 
simulated  region 

r  ( x ,  v .  t ) 

S 

(2.30) 

IM  /  Mr  •  s  | 

S  G 

Adsorbate  mass  source  (per 
unit  solid  matrix  mass) 
due  to  production 
reactions  within  adsorbed 
material  itself 

r  (x,v,t) 

W 

(2.30) 

IM  /M-s | 
s 

Solute  mass  source  in  fluid 
(per  unit  fluid  mass)  due  to 
production  reactions 

At 

(7.1) 

1  S  | 

Length  of  time  step 

all 

(7. A) 

Distance  between  sides  of 
element  L  along  stream  line 

alt 

(7.5) 

Distance  between  sides  of 
element  L  perpendicular  to 
stream  line 

At 

n 

( 3.33) 

Time  step  n 

Atn+1 

(3.29) 

Time  step  n+1 

H+ 

(4.3) 

One-dimensional  basis 
function  in  n  direction 

H_ 

(4.3) 

One-dimensional  basis 
function  in  o  direction 

*A 

H 

(4.18) 

Asymmetric  portion  of  n 
weighting  function 

9. 

1 

(4.13) 

Asymmetric  weighting 
function  at  node  i 

“+ 

(4.2) 

One-dimensional  basis 
function  in  £  direction 

(4.1) 

One-dimensional  basis 
function  in  £  direction 

A 

(4.17) 

Asymmetric  portion  of  £ 
weighting  function 

292 


T  (  x ,  y ,  t ) 


(2.22) 


(M/(L  -s)l 


Solute  mass  source  (e.g., 
dissolution  of  solid 
matrix  or  desoprtion) 


Roman  Lowercase 


c( x,v,t) 


c 

s 

c 

w 

d^( x,y,t) 
d  (x,v,t) 

det  J 

e 

s 

e 

w 

f <  x ,y , t ) 


f  (  x  ,  y  .  t ) 
s 


g 


(4.8) 

Bi-linear  symmetric  basis 
function  at  node  i 

(4.23) 

Asymmetric  weighting 
function  coefficient 

(2.1) 

<VLfi 

Solute  volumetric  concen¬ 
tration  (mass  solute  per 
volume  total  fluid) 

(2.27b) 

(E/(Mg-“C) ] 

Solid  grain  specif ic„heat 
(about  c  ~  8.4  X  10  [J/(kg*u 
for  sandltone  at  20UC) 

(2.25) 

[ E/( M*  °C) } 

Specific  heat  of  water  (about 
c  ~  4.182  X  1(T  [ J/(kg’ "C) ] 
a?  20°C 

(2.39c) 

[L2/s) 

Longitudinal  dispersion 
coefficient 

(2.39c) 

{ L2/s] 

Transverse  dispersion 
coefficient 

(4.30) 

Determinant  of  Jacobian 
matrix 

(2.24) 

u/«ci 

Energy  per  unit  mass  solid 
matrix 

(2.24) 

(E/Mj 

Energy  per  unit  mass  water 

(  2. 30) 

(M  /(  L3- s  )  ] 

Volumetric  adsorbate  source 

(gain  of  adsorbed  species  by 
transfer  from  fluid  per  unit 
from  fluid  per  unit  total 
volume) 

( 2. 32a) 

[M  /M  -sj 
s  u 

Specific  solute  mass 
adsorption  rate  (per  unit 
mass  solid  matrix) 

<  2.19b) 

IWs2) 

293 

Gravitational  acceleration 
(gravity  vector) 

■;  - '  \ 

h( x, y , t ) 

(2.20) 

1  LI 

Hydraulic  head  ( sum  of 

(3.1) 

pressure  head  and 
elevation  head) 

k( x,y ) 

(2.19a) 

? 

IL‘| 

Solid  matrix  permeability 

k  (  x ,  v )  ( 

max 

(2.21a) 

!L2! 

Absolute  maximum  value  of 
permeability 

k  .  (  x ,  v ) 
mm 

(2.21a) 

0 

IL'I 

Absolute  minimum  value  of 
permeability 

k  (  x ,  v ,  t ) 

(2.19) 

1  1  1 

Relative  permeability  lo 

r 

fluid  flow  (assumed  to  be 
independent  of  direction). 

p( x ,y , t ) 

(2.1) 

|M/(L-s2) i 

Fluid  pressure 

P  (x,v,t) 
c 

(2.7) 

|M/(L-s2) j 

Capillary  pressure 

Pcent 

(2.7) 

|M/(L-s2) | 

Entry  capillary  pressure 

Pjjc 

(4.38) 

Specified  pressure  value 

i 

at  node  i 

qIN . 

l 

(4.44) 

Fluid  mass  flux  in  across 
boundary  at  node  i 

qoui . 

l 

(4.44) 

Fluid  mass  flux  out  across 
boundary  node  i 

* 

r 

(6.3a) 

Parameter  in  analytical 
solution  for  radial 

transport 

s, 

(4.84) 

Left  side  coefficient 

L< 

contribution  of  sorption 
isotherm  to  U  equation 

3r 

(4.84) 

Right  side  contribution  of 
isotherm  to  U  equation 

t 

(  3.4) 

Time 

v(  x  ,  y , t ) 

(2.39c) 

1  L/s  | 

Magnitude  of  velocity  v 

v(  x ,  y , t  ) 

(2.19a) 

1  L/s  I 

Average  fluid  velocity 

V 
-  s 

(2.49) 

1  L/s  | 

Net  solid  matrix  velocity 

V  (  X  .  V  ,  t  ) 

X 

(2.39c) 

i  L/s  1 

Magnitude  of  x-component  of  v 

v  (  x ,  v  ,  t  ) 

(  2  .  39r  ) 

1  L/s  1 

Magnitude  of  y-component  of  v 

V 


2n>4 


X 


I  L| 


x  coordinate 


X 

m 

Minor  principal  direction 

V 

“p 

Major  principal  direction 

V 

ILI 

y  coordinate 

Roman  Uppercase 

A 

(6.3b) 

Factor  in  analytical 
solution  for  radial 
transport 

AF. 

(4.53) 

Matrix  coefficient  of 

1 

pressure  time  derivative 

AT. 

•i 

(4.86) 

Matrix  coefficient  of  U 

-L 

time  derivative 

B(x.y,t) 

(3.2) 

1  LI 

Aquifer  thickness 

BASE( x , y ) 

(3.2) 

ILI 

Elevation  of  aquifer  base 
for  example  problem 

BF.  . 
ij 

(4.55) 

Matrix  coefficient  in 
pressure  equation 

BT  .  . 
ij 

(4.88) 

Matrix  coefficient  in  U 
equation 

C 

0 

(2.4) 

IM  /Ml 
s 

Base  fluid  solute 
concentration 

C( x, v , t ) 

(2.1) 

IM  /M| 

Fluid  solute  mass  fraction 

s 

(or  solute  concentration) 
(mass  solute  per  mass 
total  fluid) 

C  (  x ,  v ,  t ) 
s 

(2.30) 

IM  /M  I 

S  0 

Specific  concentration  of 
adsorbate  on  solid  grains 
(mass  adsorbate/' ( mass 
solid  grains  plus 
adsorbate ) ) 

(.'  (  x ,  v  ,  t ) 

(2.30) 

IM  /Ml 

Solute  concentration  of 

s 

fluid  sources  (mass 
fraction) ) 

CF. 

1 

(4.54) 

Matrix  coefficient  of  U 
time  derivative  in 
pressure  equation 

SUBS  JUT INE 


SUTRA 


SUTRA  -  VERSION  1284-20  BIO.. 


IF(nSOP-I.GT.O.OR.NSOJ-I.GT.O)  BolO. 

CALL  SOURCE ( QIN/UIN/ I JSOP/OUIN/ I OSOUr IQSOPTx IOSOUT )  B&20. 

B  6  3  0  . 

,INPUT  SPECIFIED  P  A N 9  U  BOUNDARY  CONDITIONS  (DATASETS  19  AND  20)  B640. 

IFCN3CN-1  .GT.O)  CALL  3  0  UN  D  (  I P  3C  x  P  3C  /  I  U  3C /•  U  BC  /  I  P  BC  T,  I  UBC  T  )  Bo50. 

B660. 

•SET  =lAG  FOR  TIME-DEPENDENT  SOURCES  OR  BOUNDARY  CONDITIONS.  B670. 

WHEN  I8CT  =  +  4  x  THERE  ARE  NO  T  I  M E -D E P E NOE N T  SPECIFICATIONS.  8680. 

IdCT=IQS0PT+I0S0UT+IP3CT+IUBCT  B690. 

B700. 

.input  observation  node  data  (dataset  21)  B7io. 

IF (ND3SN-1 .GT .0)  CALL  03 S E R V ( Ox I  0 B S / I  T 0 B S / P 0 3 S x U 03S x 0 B ST  I M,  B720. 

I  PVEC/UVECr  ISTO»)  B 7 3 0 . 

3740. 

.INPUT  MESH  CONNECTION  DATA  (DATASET  22)  B750. 

CALL  CDNNEC(lNxIPINCH)  B760. 

B770 . 

.CALCJlATE  AND  CHECK  BANO  WIDTH  B730. 

CALL  BANWID(lN)  B  79  0 . 

6800. , 

.CHECK  THAT  PINCH  NODES  HAVE  NO  SOURCES  OR  BOUNDARY  CONDITIONS  3810. 

IF(N»INCH-1  .GT.O)  CALl.  NCHECK  (  I  P  I  NC  H  *  IQSOPxIQSOUx  I P  B  C  x  IUBC)  3820. 

B830. 

.INPUT  INITIAL  OR  RESTART  CONDITIONS  ANO  INITIALIZE  PARAMETERS  B840. 

(REAO  UNIT-55  DATA)  B850. 

CALL  INDAT2(PVECxUVECxPM1xUM1xUM2xC$1xCS2xCS3x  SL  x  SR  x  RC  I Tx S  Wx D  S  WD  P,  B860  . 


I  PBCxIPBCxIPBCT)  B870. 

3880. 

•SET  STARTING  TIME  OF  SIMULATION  CLOCK  B890. 

TSEC=TSTART  B  900 . 

TSEC30=TSEC  B91 0 . 

TSECUO  =  TSEC  B  9  2  0 . 

TMIN=TSEC/60. DO  B930. 

ThOUR=TMIN/6D.D0  B940. 

TDAY=THOUR/24.DO  B950 . 

TWEEK=TDAY/7.D0  B960. 

TMONTh=T0AY/30. 437500  B970. 

TYEAR=TDAY/365.2500  B980. 

B990 . 

.OUTPUT  INITIAL  CONDITIONS  OR  STARTING  CONDITIONS  31000 

IF(ISSTRA.NE.I)  CALL  ?  R  I  S OL  (  Ox  0 x  Ox  t>  V  E C  x  U  V  EC  x  V  M  AG x  V  ANSx  S W  )  B1010 

B1  020 

•SET  SWITCHES  AND  PARAMETERS  FOR  SOLUTION  wITH  STEADY-STATE  FLOW  B1030 

IF(ISSCL0.NE.1 )  GOTO  1000  B1040 

Nl=1  31050 

NOUM  A  T  =0  B 1 060 

ISSFL0  =  2  B 1 0  70 

I  T  E  R  =  0  31  080 

DlTPM1=DElTP  91090 

OlTuM1=OElTu  B1100 

3DElP=0.000  31110 

30ELJ  =  O.ODO  B 1 1 2  0 

GOTO  1 1 C  0  B1130 

B  1  1  4  0 
SI  1  50 

■**•*..*.*.*.»**.*********»***»***.**.*.********.***•**•******. ****91160 

BEGIN  TIME  S  T  c 3  **************************************************61170 
******** **»*****»*****»*************** ********  ********************91180 

I  T *  I T ♦ 1  31190 

I  T  E  R  -  j  31200 


Su3R0jTINE 


S  J  T  R  4 


SuTRA 


VERSION  1 2  8 - - a  D  31 0 


SjSROdTINE 


S  J  T  R  A 


Sutra  -  version  1234-20 


ojRPOSE  : 

MAIN  CONTROL  ROUTINE  FOR  SUTRA  SIMULATION. 

ORGANIZES  DATA  InPuT/  initialization/  calculations  for 
EACH  TIME  STEP  and  ITERATION/  AND  VARIOUS  OUTPUTS. 

CALLS  MOST  OTHER  SUBROUTINES. 

SJ3R0UTINE  SUTRA (  PMAT/UMAT/ 

1  PITER/UITER/PM1/UM1/UM2/PVEL/SL/SR/ 

2  X/T/THICK./VDL/90R/CS1/CS2/CS3/SW/DSWDP/Rh0/S0P/ 

3  OIN/UIN/O JIN/P VEC/JVEC/RCIT/RCITM1/CC  / XX/ YY/ 

<•  ALMAX/ ALMIN/ ATAVG/ VMAG/ VANS/ 

5  PERMXX/PERMXY/3ERMYX/PERMYY/PANGLE/ 

6  P3C/U9C/QpLlTR/POBS/UOBS/Oa$TIM/GXSI/GcTA/ 

7  IN/IPINCH/IQS0P/IQS0U/IPBC/IuaC/IN06X/I0BS/IT0BS  ) 

IMPLICIT  D0U3lE  PRECISION  (A-H/O-Z) 

CriARACTER*10  AOSMOO 
COMMON/MOOSOR/  AOSMOO 

COMMON/OIMS/  NN/NE/NIN/N3I/NB/NBHALF/NPINCH/NPBC/NUBC/ 

1  NSOP/NSOU/NBCN 

COMMON/ TIME/  OELT/TSEC/TMIN/THOUR/TOAY/TWEEK/TMONTH/TYEAR/ 

1  TMAX/DELTP/DELTU/OLTPM1 /OLTUM1 /IT/ITMAX 
COMMON/CONTRL/  GNU/UP/DTMULT/DTMAX/ME/ISSFLO/ISSTRA/ITCYC/ 

1  NPCYC/NUCYC/NPRINT/IREAO/ I STO R E / N OUM A T / I  UN S AT 
COMM ON/P  ARAMS/  CO MP F L / COMPM A / OR WO U/ Crf / C S / R HO S / DE C A Y / S I GM A W / S I GM A S 
1  RHOWO/URHOWO/ VISCO/PROOF1 /PROOS1 /PROOFO/PRODSO/CH1 1 /CHI  2 
COMMON/I  TERAT/  RPM/RPMAX/RUM/RUMAX/ITER/ITRMAX/IPkJORS/IUWORS 
COMMON/KPRINT/  KNOOAL/KELMNT/XINCID/XPLOTP/KPLOTU/KVEL/XBUOG 
COMMON/OBS/  N09SN/NT03SN/N0BCYC/ITCNT 

DIMENSION  OIN(NN) /UIN(NN) ,IQS0PINS0P)/QUIN(NN) /IQSOU (NSOU) 
DIMENSION  IP3CCN3CN)/PBC (NBCN) /IUBC(N6CN)/UBC(NBCN) /QPLITR (NBCN) 
DIMENSION  lN<NlN),IPlNCH(NPINCH/3) 

DIMENSION  X(NN)/YCNN)/THISKCNN)/SW<NN)/OS*DP(NN)/RHO<NN)/SOPCNN)/ 
1  POR(NN)/PVEL(NN) 

DIMENSION  pERMXX(NE)/?ERMXY(NE)/PERMYX(NE>/PERMYY(NE)/PANGLE(NE)/ 

1  ALMAX(NE)/ALMIN(NE)/ATAVG(NE)/VMAS(NE)/VANS(NE)/ 

2  GXSI (NE/A) ,GETA(NE/ A) 

DIMENSION  VOL (NN) /PMAT (NN/N8I ) /PVEC (NN>/ JMAT(NN/NBI ) /UVEC(NN) 
DIMENSION  PM1 (NN)/UM1 CNN) /UM2 CNN) /PITER (NN) /UITER(NN) / 

1  RCIT(NN).RCITM1(NN)/CS1CNN)/CS2(NN)/CS3CNN) 

DIMENSION  CC(NN)/INOEX(NN)/XX(NN)/rrCNN) 

0  I  ME  N  S I  ON  P03SCN03SN/NT0BSN)/ JOB S C NO BSN/ N T03 S N) / OBS T IM C NTOB SN ) / 

1  I  D3S (N09SN) / I TDB S ( NT03SN) 

Data  IT/O/ 


.input  simulation  data  from  unit-5  (datasets  3  through  isb> 

CALL  INDATl(X,Y/THlCK/POR/ALMAX/ALMIN/ATAVG/p£RMXX/PERMXY/ 

1  permyx/Permyy/PanglE/Sop) 


.plot  mesh  (input  dataset  16) 

if (*PlOTP*KPLOTu. ST.O)  call  PlOT(D/1 /X/Y/SC/INOEX/XX/YY/PVEC) 
.input  fluid  mass/  ano  energy  dr  solute  mass  sources 

(DATAScTS  17  ANO  13) 

CALL  ZERO(QlN/NN/D.OOD) 

CAL).  ZERO(UIN/NN/O.OOD) 

CALL  ZEROCOUIN/NN/O.OOO) 


310.. . 

320. .  . 
330.  .  . 
BAO.  .  . 

350. .  . 
3  60  .  .  . 
370  ... 

380. .  . 
890.  .  . 
3100.  . 

3110.. 

3120.. 

3130.. 
31  AO.  . 

3150.. 
B1  60. . 
B1  70.  . 

3180.. 
3190.  . 

3200. . 

3210.. 
3220.  . 

8230. . 
B2A0.. 

8250. . 
/B260. . 

3270.. 

3230.. 
B290.  . 

3300. . 

3310.. 

3320. . 
3330.  . 
33A0.  . 

3350.. 
3360.  . 

8370. . 
8380.  . 
B390. . 
BAOO. . 
3A10.  . 
BA20.  . 
3430.  . 
34A0.  . 
B450.  . 
3460.  . 

3470. . 
3480.  . 
3490.  . 
3500.  . 
8510.  . 

3520. . 

3530. . 
8  5  AO  .  . 

3550. . 
3560.  . 

3570. . 
3580.  . 

8590. . 
B 600 .  . 


O  O  O  <1  o  o  ci  o  ci  ci  o  o 


S  j  r  *  i 


MAIM 


°  R  0 


RAM 


SjTRA-VERSION  1234-^:0  A  1  0 


N  c  V  =  1  3 
M2  =  1 

XRV ( 1 ) =1 
Ml =  M  2  +  1 

M2=M2*  (  MM V  ) 

DO  -.30  J  =  M 1 / M 2 
433  XRV<  J)=KRV(J-1  >«•  MM 
Ml =  M2  +  1 

m2=m2*  (  ME V  ) 

DO  4 1 3  J=M1,M2 
410  X  RV ( J) =XRV ( J-1 ) >  ME 
Ml =  m2*1 

M2=M2+  (  3  ) 

00  423  J  =  M 1 / M 2 
420  XRV(J)=KRV(J-1)+  NBCM 
Ml =m2*1 

M2=M2*  (  2  ) 

00  450  J=M1,M2 

430  XRVU)=KRV(J-1>  +  MAT3BS 
M2=M2*  (  1  ) 

KRV(M2)=XRV<M2-1)*NT03SN 
Ml =M2  +  1 

M2=M2*  (  2  ) 

00  440  J  =  M 1 , M  2 
440  XRV ( J) =KR V < J“1 ) ♦  NE4 

MOTE:  THE  LAST  POINTER  IN  ThE  ABOVE  LIST/  CURRENTLY/  KRV(J=49), 
MAY  NEVER  BE  PASSED  TO  SUTRA.  IT  POINTS  TO  THE 
STARTING  ELEMENT  OF  THE  NEXT  NEW  REAL  VECTOR  TO  BE  AOOEO. 
PRESENTLY,  SPACE  IS  ALLOCATED  FOR  (48)  VECTORS. 


c 

c 

c 


SET  UP  POINTERS  FOR  INTEGER  VECTORS 


X  I M  V  1  =  1 

X IM V  2  =  X I  MV  1 ♦ 

XIMV3=KIMV2+ 

X  IMV4=XIMV3* 

KIMV5=KIMV4+ 

X IMV6=KIMV5+ 

XIMV7=XIMV6> 


NIN 

N  P I NC  M  *  3 
N  SOP 
NSOU 
N3CN 
N3CN 


X IMV3=KIMV7*  NN 

XIMV?  =  XIMV8+-  NOBSN 

XIMVl0=KIMV9+  NT  OB  SN 

NOTE:  THE  LAST  POINTER  IN  THE  ABOVE  LIST/  CURRENTLY,  KIMV10, 

MAY  NEVER  BE  PASSED  TO  SUTRA.  IT  POINTS  TO  THE 
STARTING  ELEMENT  OF  THE  NEXT  NEW  INTEGER  VECTOR  TO  3E  ADDED 
PRESENTLY,  SPACE  IS  ALLOCATED  FOR  (8)  INTEGER  VECTORS. 


.PASS  POINTERS  TO  MAIN  CONTROL  ROUTINE,  SUTRA 
CALL  SU  T  R  A (  RM(KRM1 ) ,RM (XRM2)  , 

1  RV(XRV(1)),RV(XRV(2)),RV(XRV(3)),RV(XRV(4)),RV(XRV(5)), 

2  RV(XRV<6) ),RV(XRV(7) )/RV (XRV(8)),RV(XRV(9)),RV (KRV(IO))/ 

3  RV(KRV(11))/RV(XRV(12))/RV(XRV(13))/RV(KRV(l4))/RV(KRV(15))/ 

4  RV(XRV(16)1,RV(KRV(17)),RV(XRV(18)),RV(KRV(19)),RV(XRV(20)), 

3  RV(XRv(21)),RV(XRV(22)),RV(XRV<23)),RV(XRV(24)),RV(KRV(25>), 

0  RV(XRV(26)),RV(XRV(27)),RV(XRV<23)),RV(XRV(29)),RV(KRV(30)), 

7  RV<XRV(31)),RV<XRV(32)),RV<KRV<33)),RV(XRV(34)),RV(XRV(35)), 

8  RV(XRV(36)),RV(XRV(37)),RV(XRV(38)),RV(XRV(39)),RV(XRV(40)), 


A  331 0 . . 
A 30 20 . . 
A 3330 .  . 
A  3040 . . 
A3050. . 
A3060.  . 
A3370. . 
A 3080 . . 
A 3090 . . 
A3100. . 
A31 10. . 
A31 20. . 
A 3 1 30 .  . 
A  3 1 40  .  • 
A31  50.  . 
A31 60.  . 
A31 70. . 
A  3 1 80  .  . 
A3190.  . 
A32Q0. . 
A3210. . 
A 3220 . . 
A32  30.  . 
A3240. . 
A3250 . . 
A 3260 . . 
A3270.  . 
A3280.  . 
A3290. . 
A  3  300  •  . 
A331 0.  . 
A3320. . 
A3330. . 
A3340. . 
A3350. . 
A3360. . 
A3370.  . 
A3380. . 
A3390. . 
A  3400  .  . 
A3410. . 
A3420. . 
A3430. . 
A  3  4  40  .  . 
A3450.  . 
A3460.  . 
A3470. . 
A  3480. . 
A3490. . 
A3500. . 
A351 0. . 
A3520. . 
A3530. . 
A  35  40 . . 
A 35  50 . . 
A3560. . 
A3570. . 
A3580. . 
A3590. . 
A  3600. . 
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c 


SUTRA 


MAIN 


PROGRAM 


SUTRA-VERSION  1234-20  AID 


C 

c 

c 


c 

c 

c 

c 


c 


9  *=JNCTI0N  0C  TIM£'//11X, 16, 5X, 'EXACT  NUMBER  OF  NOOES  AT'/ 

*  '  WHICH  FLUID  INFLOW  OR  OUTFLOW  IS  A  SPECIFIED  CONSTANT'/ 

a  *  or  function  of  time'/iix/I6/5X/'exact  number  of  nodes  at', 

'  WHICH  A  SOURCE  OR  SINK  OF  SOLUTE  MASS  IS  A  SPECIFIED  '/ 
'CONSTANT  OR  FUNCTION  OF  T I M E ' / / 1 1 X / I  6/ 5 X / ' E X  ACT  NoMBER  OF  '/ 
'NODES  AT  WHICH  PRESSURE  AND  CONCENTRATION  WILL  BE  OBSERVED'/ 
/11X/IO/5X, 'MAXIMUM  NUMBER  OF  TIME  STEPS  ON  WHICH  ', 
'OBSERVATIONS  WILL  BE  MADE'  ) 

IF(ME.Ew.*1 ) 

WRITE (6/255)  NN/NE/N3I/NPINCH/NP3C/NUBC/NS0P/NS0U/N03S/NT0BS 
FORMAT<////11X/'S  IMULATION  CONTROL  '/ 

'N  U  M  3  E  R  S' //I  1 X/I6/5X/ 'NUMBER  OF  NODES  IN  FINITE-'/ 
'ELEMENT  MESH' /I  1 X/ I6/5X/ 'NUMBER  OF  ELEMENTS  IN  MESH*/ 

1 1X/I6/5X/'ESTIMATED  MAXIMUM  FULL  BAND  WIDTH  FOR  MESH'// 

1 1X/I6/5X/'EXACT  NJMBER  OF  PINCH  NOOES  IN  MESH'// 
11X/I6/5X/'EXACT  NJMBER  OF  NODES  IN  MESH  AT  WHICH  '/ 

'PRESSURE  IS  A  SPECIFIED  CONSTANT  OR  FUNCTION  OF  TIME'/ 

1 1X/I6/5X/'EXACT  NJMBER  OF  NODES  IN  MESH  AT  WHICH  '/ 
'TEMPERATURE  IS  A  SPECIFIED  CONSTANT  OR  '/ 

'FUNCTION  OF  TIME'//11X/I6/5X/'EXACT  NUMBER  OF  NODES  AT'/ 

'  WHICH  FLUID  INFLOW  OR  OUTFLOW  IS  A  SPECIFIED  CONSTANT'/ 

'  or  function  of  time'/iix,I6>5x, 'exact  number  of  nodes  at'/ 

'  WHICH  A  SOURCE  OR  SINK  of  ENERGY  IS  A  SPECIFIED  CONSTANT'/ 

*  OR  FUNCTION  OF  T IMc * / / 1 1 X / I  6 / 5 X / *  EX  ACT  NUMBER  OF  NODES  '/ 
'AT  WHICH  PRESSURE  AND  TEMPERATURE  WILL  BE  OBSERVED' 

/I  1 X/I6/5X/ 'MAXIMUM  NUMBER  OF  TIME  STEPS  ON  WHICH  '/ 
'OBSERVATIONS  WIlL  BE  MAOE '  ) 


CALCJLATE  DIMENSIONS  =OR  POINTERS 

NBCN=NPBC*NU3C*1 

NSOP=NSOP*1 

NSOu=NSOU+1 

NPINCH  =  NPINCH'*-1 

MATDIM=NN*NBI 

NIN=NE*8 

NQ8SN=N0BSM 

NT0BSN=NT03S+2 

MAT03S  =  N0BSN*NT03  SN 

NE4=NE*4 


SET  =  POINTERS  =0R  REAl  MATRICES 
KRM1 =1 

KRM2=KRM1+  MATDIM 
KRM3=KRM2*  MATOIM 

note:  the  last  pointer  in  the  above  list,  currently,  k r m 3 , 

MAY  NEVER  3E  PASSED  to  SUTRA.  IT  POINTS  TO  THE 
STARTING  element  OP  The  NEXT  NEw  MATRIX  to  BE  ADDED. 
PRESENTLY,  SPACE  IS  ALLOCATED  for  (2)  matrices. 


SET  J p  POINTERS  c  0  R  REAL  VECTORS 

NNV  IS  NUMBER  OF  REAL  VECTORS  That  ARE  NN  LONG 
NNV  =  30 

NEV  IS  NUM3ER  OF  SE«L  VECTORS  ThAT  a R E  N=  LONG 


A  2  4  1  0  .  . 
A2420.  . 
A2430.  . 
A  2  4  A  0  .  . 
A2450.  . 
A  2  4  6  0  .  . 
A2470.  . 
A  24  80  .  . 
A2490.  . 
A2500.  . 
A251 0.  . 
A2520. . 
A2530. . 
A  2  5  4  0 .  . 
A2  550.  . 
A2560. . 
A2570. . 
A2580. . 
A2590. . 
A2600.  . 
A261 0.  . 
A2620. . 
A2630. . 
A2640. . 
A2650. . 
A2660.  . 
A2670. . 
A2680.  . 
A2690.  . 
A2700  .  . 
A271 0.  . 
A2720. . 
A2730. . 
A2740.  . 
A2750.  . 
A2760. . 
A 2 770  . . 
A2780. . 
A2790. . 
A 2 300 . . 
A281 0. . 
A282  0. . 
A2830. . 
A 2 8 40  .  . 
A  2  8  5  0 .  . 
A28e0. . 
A2B70. . 
A  2  380 .  . 
A  2  3 90  .  . 
A2900. . 
A  2  9  1  0  .  . 
A2920  .  . 
A2930. . 
A  2  9  A  0  .  . 
A  2  R  5  0  .  . 
A29&0.  . 
A  2  9  70  .  . 
A2930.  . 
A  2  R 90  .  . 
A  3000.  . 
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-1  R  J  j  R  j  M  S  jf  i(3  "Vc<  i  I  J’*  1  2  3  •*  ~  2  0  A  1  J  •  • 


UNSATURATED' 
U  N  S  A  T* ) 


_ .inp^t  oatascT  2:  Output  heading 

R=A3(5/170)  TITlE1/TITLE2 
170  c  0  R  M  4  T  (  3  0  A  1  /  3  0  A  1  ) 

WRITE<6/130)  TITLS1/TITLE2 

IdO  <=0RMATC////1X/131(1h-)//26X/8JA1//26X,30A1//1X/131(1H-)) 

R£Aj(S/200>  NN/NE/N3I/NPINCH/NPBC/NU3C/NS0P/NS0U/N0BS/NT0oS 
READ (5/203)  IuNSAT/ISSFlO/ISSIRA/IREAD/ISTORE 
200  CJRMAT(16I5) 

WRITE (6/ 205) 

205  =JRMATC/////11X,'S  I  M  U  L  A  T  I  0  N  M  0  D  c  '  / 

1  'OPTIONS'/) 

I=(IS5TRA.SQ.1.AN0.ISSFlO.NE.1>  ThEN 
WRITE  (6/210) 

210  FORMAT ( ////I  1 X/ ' STEADY-STATE  TRANSPORT  ALSO  REQUIRES  THAT  '/ 

1  'FLOW  IS  AT  STEADY  S T AT E . ' / / 1 1 X / ' PL E A S E  CORRECT  ISSFLO  '/ 

2  'ANO  ISSTRA  IN  THE  INPUT  DATA/  AND  RERUN.'//////// 

3  A  5  x /  '  S  I  HU.ATION  HALTEO  DUE  TO  INPUT  ERROR') 
ENOdLc  (6) 

5T0=> 

ENOIF 

IFCIJNSAT.EQ.tl )  wRIT£<6/215) 

IF(I JNSAT.EQ.O)  WRITEC6/216) 

215  F0RMATC11X/'-  ALLOW  UNSATjRATcO  AND  SATURATED  FLOW:  UNSATURATEO 

1  *  PROPERTIES  ARE  US E R -P R OGR A MMEO  IN  SUBROUTINE  U  N  S  A  T*) 

216  F0RMATC11X/'-  ASSUME  SATURATEO  FLOW  ONLY') 

IFCISSFL0.EQ.t1. AND. ME. EQ.-1)  WRITE(6/219) 

IFdSSFL0.EQ.t1. AND.  HE.  EQ.-M)  WRITE(6/220> 
rFdSSFLO.Eu.Q)  WRITEC6/221) 

219  FORHATCI IX/'-  ASSUME  STEAOY-STATE  FLOW  FIELD  CONSISTENT  WITH  '/ 

1  'INITIAL  CONCENTRATION  CONDITIONS') 

220  FORMAT ( 1 1 X/ ' -  ASSUME  STEAOY-STATE  FLOW  FIELD  CONSISTENT  WITH  '/ 

1  'INITIAL  TEHPERATJRE  CONDITIONS') 

221  =0RMAT(11X/'-  ALLOW  T  I  ME  -  OE  P  =  NO  E  N  T  FlOW  FIELD') 

IFdSSTRA.EQ.tl  )  WRITEC6/225) 

IF(ISSTRA.EQ.O)  WRITE<6/226) 

22  5  FQRMATdlX/'-  ASSUME  STEADY-STATE  TRANSPORT') 

226  FOR.HATdlX/'-  ALLOW  TIME-DEPENDENT  TRANSPORT') 

IFCIREA0.EQ.-1 )  WRITE (6/ 230) 

IFCIREAO.EQ.tl)  WRITEC6/231 ) 

230  =ORMAT Cl  1 X/ '-  WARM  START  -  SIMULATION  IS  TO  BE  '/ 

1  'CONTINUED  FROM  P R E V  I  0 U S L Y - S T 0 R E D  DATA') 

231  cORMAT Cl  1 X/ ' -  COLD  START  -  BEGIN  NEW  SIMULATION') 

IF C I  STORE . EQ. *1 )  wRITECo/240) 

IFCISTORE.EQ.O)  WRITEC6/241) 

20  FORMAT C 1 1 X/ ' -  STORE  RESULTS  AFTER  EACH  TIME  STEP  ON  UNIT-66'/ 

1  '  AS  BACK-UP  ANO  FDR  USE  IN  A  SIMULATION  RE-START') 

241  =0RMATC11X/'-  00  NOT  STORE  RESULTS  FOR  USE  IN  A  '/ 

1  'RE-START  OF  SIMULATION') 

IFCHE.EJ.-1) 

1  WRITE (6/245)  NN/NE/NBI/NPINCH/NPBC/NUBC/NS0P/NS0U/N0BS/NT03S 
2  <♦  5  F0RMAT(////11X/'S  IMULATION  CONTROL  '/ 

1  'N  U  M  3  E  R  S' //I  1 X / 16/ 5X, 'NUMBER  OF  NOOES  IN  FINITE-'/ 

2  'E-SMENT  HESh'/11 X/l6/5X/'NUM3ER  OF  ELEMENTS  IN  MESH'/ 

3  1 1 X/ 16/ 5X / ' E STIMATEO  MAXIMjM  Full  BANO  WIOTH  FOR  MESH*// 

4  1 1X/I6/5X/'EXACT  N  U  M  3  E  R  0=  PINCH  NOOES  IN  MESH'// 

5  1 1 X / 16/ 5 X / ' E X  ACT  NUMBER  OF  NOOES  IN  MESH  AT  WHICH  '/ 

6  'PRESSURE  IS  A  SPECIFIEO  CONSTANT  OR  FUNCTION  OF  TIME'/ 

7  1 1X/I6/5X/'ExACT  NjMBER  OF  NOOES  IN  MESH  AT  WHICH  '/ 

3  'SOLUTE  CONCENTRATION  IS  A  SPECIFIED  CONSTANT  OR  '/ 


A  1  3  1  0  .  . 
A1 320. . 
A1  830  . . 
A  1  8<*0 . . 
A1  350.  . 
A1  360. . 
A1  370. . 
A1  330.  . 
A1  390 . . 
A1  900.  . 
A1 910.  . 
A1 920. . 
A1  930.  . 
A1 940.  . 
A1  950.  . 
A  1  960  .  . 
A  1  9  70  .  . 
A1  980.  , 
A1 990. , 
A2000.  , 
A2010.  , 
A20  20.  , 
/ A  20  30  •  . 
A2040. 
A2050. 
A2060. 
A2070. 
A2080. 

A  2090  .  , 
A  2 1 00  .  < 
A2110. 

A  2 1  20 . 
A21 30. 
A  2 1 40. 
A21 50. 
A  2 1 60 . 
A21 70. 
A21 80. 
A21 90. 
A2200. 
A2210. 
A  2  220 . 
A  2  2  30 . 
A2240. 
A2250. 
A2260. 
A2270. 
A2280. 
A  2  2  90 . 
A  2  300 . 
A2310. 
A2320. 
A  2  3  3  0  . 
A2340. 
A  2  350 . 
A  2  360 . 
A  2  3  70 . 
A2330. 
A2390. 
A2400. 


I 


oooooooo 


SUTRA 


MAIN  PROGRAM  SUTR A-VERSION  1284-2D  A10.. 


N:  =  number  of  elements  in  finite  element  mesh 
N03S  =  number  of  observation  nodes  in  mesh 
NTQ8S  =  maximum  number  of  time  steps  with  observations 
N 3 1 NC M  =  number  of  pinch  nodes  in  finite  element  mesh 
NSOP  =  number  of  fluid  mass  source  nodes  in  mesh 
NSOU  =  number  of  energy  or  solute  mass  source  nodes 
NPBC  =  number  of  specified  pressure  nodes  in  mesn 
NUBC  =  number  of  specified  concentration  or  temperature 
nodes  in  mesh 


The  three  arrays  must  be  given  dimensions  just  oeloui.  *  *| 

*  *  I 

***********************************************************  *  | 


************************************************* 

DIMENSION  RM(04J0Q0) /  RV<  30000)/  IMV<  10000) 


*  ***************************************************************  * | 
**********************************i 


.....INPUT  DATASET  1;  INPUT  DATA  HEADING 

.....<  SET  ME=-1  FOR  SOLUTE  TRANSPORT/  ME  =  +  1  FOR  ENERGY  TRANSPORT  ) 
READ(5/100)  SIMULA 
100  FORMAT (2A6) 

WRITE(6/110) 

110  FORMAT<lH1/132C1HO////3<1X/132(lH*  >////)//// 

1  4  7X  /  '  SSSS  UJ  UJ  TTTTTT  RRRRR  AA  '/ 

2  47X/'SS  S  UJ  JJ  T  TT  T  RR  RR  A A A  A  '/ 

3  47X/*SSSS  UJ  UJ  TT  RRRRR  AA  AA'/ 

4  4  7X / '  SS  UJ  UJ  TT  RR  R  AAAAAA'/ 

5  4  7X / ' S  S  SS  UJ  UJ  TT  RR  RR  AA  AA'/ 

6  4  7X / '  SSSS  JUUU  TT  RR  RR  AA  AA'/ 

7  7(/)/37X/'U  NITE0  STATES  '/ 

3  'GEOLOGICAL  SURVE  Y'//// 

9  45X/'SJ3SJRFACE  FLOW  AN0  TRANSPORT  SIMULATION  MODEL'/ 

*  / /59X/ '-VERSION  1234-2D-'/// 

A  36X/'*  SATURATED-UNSATUR ATED  FLOW  AND  SOLUTE  OR  ENERGY'/ 

B  '  TRANSPORT  * ' / / / / 4 ( / / / / 1 X / 1 3 2 ( 1 H* ) ) ) 

IF(SIMULA(1).NE. 'SUTRA  ')  GOTO  115 
IF(SIMUlA(2).E0. 'SOLUTE')  GOTO  120 
IF(SIMULA(2) ,E0. 'ENERGY' )  GOTO  140 

115  WRITE (6/ 1 1 6) 

116  F jrm AT C 1  Hi //// /2Qx / ' *  *  *  *  *  ERROR  IN  FIRST  DATA  CARD--'/ 

1  ' - DATA  INPUT  HALTED  FOR  CORRECTIONS  *  *  *  *  *') 

STOP 

120  M E  =  - 1 

WRITE(6/1 30) 

130  c0RMAT(1h1//132(1m*)///2CX/'*  *  *  *  *  SUTRA  SCLU'/ 

1  'TE  TRANS0  O'  R  T  SIMULATION  ***♦*' 

2  /132C1H*)/) 

GOTO  160 

1  4  0  M  £  =  ♦  1 

WRITE(6/150) 

15  0  cJR.MAT(1h1//132(1h*)///20X/'*  *  *  *  *  S  U  T  R  A  E  N  E  R  '/ 

1  'GY  TRANSPORT  SIMULATION  ***«*' 

2  / 1 32  <1rt*) /) 

IbO  CONTINUE 


*****  SUTRA 
SIMULATION 


***  SUTRA 
I  M  U  L  A  T  I  0  N 


SCLU'/ 

*  *  *  *  * '  /  / 


E  N  E  R 

*  *  *  • 


A 1  2 1  0 
A1  220 
A1  230 
A 1  2a0 
A1250 
A1  260 
A 1  270 
A 1  2d0 
A1  290 
A1  300 
A 1  3 1  0 
A1  320 
A  1  3  30 
A1  340 
A 1  350 
A1  360 
A1  370 
A1  380 
A1  390 
A 1  400 
A  1  4  1  0 
A  1  4  20 
A 1  4  30 
A1  440 
A 1  4  50 
A1  460 
A1470 
A1480 
A 1  4  90 
A1  500 
A  1  5  1  0 
A1  520 
A1  530 
A1  540 
A1  550 
A 1  560 
A1  570 
A1  580 
A  1  5  90 
A 1  600 
A1  610 
A1  620 
A1  630 
A1  640 
A1  650 
A1  660 
A1  670 
A1  680 
A1  690 
A1  700 
A  1  7  1  0 
A  1  7  20 
A  1  7  30 
A1  740 
A 1  7  5  0 
A  1760 
A  1  770 
A1  780 
A  1  790 


SoT^  A 


MAIN 


3  ■?  3 


SjTdA-Vc  RSIuN  US-.-2  0  A  1  J 


3  A 


431  National  Center 
Rsston/  Virginia  2  2  D  9  2 
USA 

a**************************** 

Tna  SUTRA  cooe  and  documentation  were  prepared  under  a  * 
joint  research  project  of  the  J.S.  Geological  Survey/  * 
Department  of  the  Interior/  R  e  s  t  o  n  /  Virginia/  and  the  * 
engineering  and  Services  Laboratory/  U.S.  Air  Force  * 
engineering  and  Services  Center/  Tynd3ll  A.e.B./  * 

Florida.  The  SUTRA  coda  and  documentation  are  * 

available  for  unlimited  distrioution.  * 


C 

r 

c... 

C|  * 
Cl* 
Cl* 
Cl  * 
C|  * 
Cl* 

c  I  * 

Cl  * 
Cl  * 
Cl* 
C|* 

c  I  * 

Cl  * 
Cl* 

c  I  * 

C|  * 

c  I  * 

Cl  * 
Cl  * 
C|* 
C|  * 
Cl  * 
Cl  * 
C)  * 
Cl* 


IMPLICIT  Q0U3LE  PRECISION  (A-d/O-Z) 
common/lgem/  rm 
commdn/lgev/  rv 
COMmON/LGEMV /  I MV 

COMMON/D  IMS/  NN/Ne/NlN/N8I/N9/N3HALF/NPINCH/NPBC/NUaC/ 

1  NS0P/N50U/N3CN 

C0MM3N/C0NTRL/  GN J / UP/ OT M JLT / DTM A  X/ ME / IS SF LO/ I S ST R A , I TC YC / 
1  NPCYC/NUCYC/NPRINT, I R E AO / I STOR E / N 3UMAT / IUNS AT 

C0MM3N/0BS/  N0BSN/NT03SN/ V08CYC/ITCNT 

characters  titlei < 80) /Title 2C30> 

CHARACTER*6  S I MUL  A ( 2 ) 

DIMENSION  KR  V ( 1 00 ) 


it****************************** 

* 

The  three  arrays  that  need  oe  dimensioned 
are  dimensioned  as  follows: 


DIMENSION  RM (  RMOIM) /  RV (  R  V  0 1 M) /  IMV(IMVDIM) 
RM3IM  >=  2  *  NN  *  N  3  I 

3  V  3 1 M  >=  ((  NNV  *NN  «•  (N£V*8)*NE  ♦  NBCN*3 

♦  (N08SS ) *<NT03S*2> *2  ♦  NT08S  ♦  5  )) 

IMVOIM  >=  CC  NE  *8  ♦  NN  *  NPINCH*3  *  NSOP  *  NS'OU 

*  N3CN*2  *  NOBS  *  NTOBS  *  12  )) 

where : 

NNV  =  30 
NEV  =  10 

N3CN  =  NP3C  ♦  NUBC 
and : 

NN  -  number  of  nodes  in  finite  element  mesh 


*1 

*1 

*1 

*1 

*1 

*1 

*1 

*  I 
*1 
*1 
*1 
*1 
*1 
*1 
*1 
*1 
*1 
*1 
*1 
*1 
*1 
*1 
*1 

*  I 
*1 


A  o  1  0  •  . 
AO20. . 
Ao30.  . 
A640.  . 
A  6  5  0  .  . 
AoSO. . 
Ao70. . 
A  6  SO  .  . 
A  6  90  .  . 
A700.  . 
A  71 0  .  . 
A720. . 
A730. . 
A740. . 
A750. . 
A  76  0  .  . 
A770.  . 
A 780. . 
A790.  . 
A800.  . 
A810.  . 
A820. . 
A830 . . 
A  8  4  0  .  . 
A850.  . 
A  860  .  . 
A870.  . 
A830.  . 
A390.. 
A900  .  . 
A91 0  .  . 
A920.  . 
A930.  . 
A940.  . 
A950.  . 
A960.  . 
A970.  • 
A980. . 
A990.  . 
A1000. 
A1010. 
A1020. 
A 1030 . 
A1 040. 
A 1 050 . 
A 1 060. 

A1 070. 

A 1 080 . 
A 1 090. 
A1 100. 
A1 1 10. 
All  20. 
A 1 1 30. 
A 1 1 40 . 
A1 150. 
A1 160. 
A 1 1 70  . 
A 1 1 80 . 
A 1 190. 
A1200. 


SUTRA 


MAIN 


SUTRA-VERSIQN  1284-20 


UNITED  STATES  GEOLOGICAL  SURVEY 

GROUNDWATER  FLOW  AND  ENERGY  OR  SOLUTE  TRANSPORT  SIMULATION  MQOEl 


Saturated 


Unsaturated  TRAnsport 


********* 


******************** 


*  ->saturated  and/or  unsaturated  groundwater  flow  * 

*  ->either  single  species  reactive  solute  transport  * 

*  or  thermal  energy  transport  * 

*  ->two-dimensional  areal  or  cross-sectional  simulation  * 

*  ->either  cartesian  or  r adi a  1 / c y 1 indr i c a  1  coordinates  * 

*  ->hyprid  ga 1 e r < in- f in i te- e 1 ement  method  and  * 

*  integratad-f inite-dif f erence  method  * 

*  aiitn  two-dimensional  quadrilateral  finite  elements  * 

*  -> f ini te-d i f f erence  time  discr et ization  * 

*  ->non-lin?ar  iterative*  sequential  or  steady-state  * 

*  solution  modes  * 

*  ->optional  fluid  velocity  calculation  * 

*  ->optional  observation  well  output  * 

*  ->optional  printer  plots  of  output  * 

*  ->optional  fluid  mass  and  solute  mass  or  energy  oudget  * 
a***************************** 


Complete  explanation  of  function  and  use  of  this  code 
is  given  in  : 

Voss  *  Clifford  I.*  198l*  SUTRA;  A  F  in  i  t e- E 1 emen t 
Simulation  Model  for  S a t ur a t a d -U n s a t ur a t e d 
FI u l d -Oen s i t y- 0 ep en d en t  Ground-Water  Flow 
with  Energy  Transport  or  C he  mi c a  1 1 y “R eac 1 1 v e 
S l ng I e- Sp ec l e s  Solute  Transport*  U.S.  Geological 
Survey  Water-Resources  Investigations  Report 
34-4369. 


Users  wno  wish  to  oe  notified  of  updates  of  the  SUTRA 
code  and  documentation  may  be  ados o  to  the  mailing 
by  sending  a  r  e  q  u  e  s  t  to  : 


Cnief  Hydrologist  -  SuTRA 
U.S.  Geological  Survey 


A 1  0  • 

20. 

30. 

40. 
A  5  0 . 
AoO  . 
A  7  0  . 
A80. 
A  9  0  . 
AI  00 
A110 
A  1  20 
AI  30 
A 1  40 
AI  50 
AI  60 
A  1  70 
AI  80 
AI  90 
A200 
A  2  1  0 
A220 
A230 
A  240 
A250 
A260 
A270 
A280 
A290 
A300 
A31  0 
A320 
A  330 
A340 
A350 
A360 
A370 
A380 
A390 
A400 
A  4  1  0 
A  4  20 
A430 
A440 
A  4  5  0 
A460 
A470 
A430 
A  4  90 
A500 
A  5  1  0 
A520 
A  5  30 
A  5  40 
A  5  5C 
A  5  6  0 
A570 
A  3  8  0 
A  5  90 
A  630 


(2.47) 


(4.66) 


(2.47a) 


(4.23) 


(3.15) 


(2.9) 


(2.13) 


(4.111b) 


(6.1a) 


(4.39) 


rcj  or 
[Mg/M] 


(4.111a) 


either  T  or  C  depending  on 
type  of  simulation 

U  value  of  inflow  at  point 
of  specified  pressure 

U  value  of  fluid  source 

Upstream  weighting  factor 

Cell  volume  at  node  i 

Volume  (total) 

Fluid  volume 

Weight  for  Langmuir  isotherm 

Well  function  for  pump  test 
example 

Weighting  function 

Weight  for  Langmuir  isotherm 


example  problem  (volume 
fluid  injected  per  time  / 
volume  aquifer) 


qpbc 

(4.51) 

(M/L3- s ] 

Fluid  mass  source  rate  due 
to  a  specified  pressure 

qbc, 

1 

(3.38) 

Fluid  volumetric  source 
due  to  a  specified  head 
in  the  example  problem 

(4.64) 

( M/s  j 

Fluid  mass  source  due  to 
a  specified  pressure  node 

qin. 

1 

(3.20) 

Fluid  volume  efflux  at 
boundary  for  example 
problem 

QTOt 

(6.1a) 

Total  pumping  rate  for 
pump-test  example 

* 

% 

(3.28) 

Fluid  volumetric  source 
for  example  problem 

R 

(3.8) 

Residual  of  discretized 
equation 

RMDIM 

(7.6) 

Program  matrix  dimension 

RVDIM 

(7.7) 

Program  matrix  dimension 

S  (  x ,  y ) 
op 

(2.13) 

[Mf/(L-a2)r1 

Specific  pressure  storativitv 

S(x,y) 

(3.1) 

IL"1} 

Specific  storativity  for 
example  problem 

* 

s 

(6.1a) 

Dimensionless  drawdown  for 
pump  test  example 

S  (  x ,  v ,  t ) 
w 

(2.6) 

in 

Water  saturation  (saturation) 
(volume  of  water  per  volume 
of  voids) 

T 

o 

(2.3) 

t“cj 

Base  fluid  temperature 

T( x,v,t ) 

(2.1) 

il,C) 

Fluid  temperature  (degrees 
Celcius ) 

n  x ,  y .  t ) 

(3.2) 

f  L  2  /  6  1 

Aquifer  transmissivity  for 
example  problem 

* 

r  (  x ,  y ,  t ) 

(2.25) 

rc] 

Temperature  of  source  fluid 

2^8 


IMVDIM 

(7.8) 

Program  dimension 

K(  x, v ) 

(2.20) 

(3.1) 

1  L/s| 

Hydraulic  conductivity 

KG 

(4.32) 

Number  of  Gauss  point 

NE 

(  3.3) 

Number  of  elements  in  mesh 

NN 

(  3.4) 

Number  of  nodes  in  mesh 

NP 

(4.32) 

Number  of  Gauss  points 

NPBC 

(7.1) 

Number  of  specified  pres¬ 
sure  nodes  in  mesh 

NSOP 

(7.1) 

Number  of  specified  fluid 
source  nodes  in  mesh 

NSOU 

(7.1) 

Number  of  specified  U 
source  nodes  in  mesh 

NUBC 

(7.1) 

Number  of  specified  U 
nodes  in  mesh 

NPCYC 

(7.1) 

Pressure  solution  cycle 

NUCYC 

(7.1) 

U  solution  cycle 

0 

(  3.7) 

The  governing  equation  of 
the  example  problem 

0 

P 

(4.38) 

The  fluid  mass  balance 
equation 

0 

u 

(4.66) 

The  energy  or  solute  mass 
balance  equation 

Pe 

m 

(7.1) 

The  mesh  Peclet  number 

PBC  . 

lpU 

(7.1) 

The  ipu^1*  pressure  boundary 
condition  value 

«i 

( 4. 50) 

IM/s  | 

Total  fluid  mass  source  to 
cell  i 

Q  ( x, v i t ) 

P 

*A 

(2.22) 

1 M/< L3-s) 1 

Is'1  | 

Fluid  mass  source  (including 
pure  water  mass  plus  solute 
mass  dissolved  in  source 
water ) 

0  (  x ,  v ) 

(3.1) 

Volumetric  fluid  source  for 

example  problem  (volume 
fluid  injected  per  time  / 
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D(  x ,  v ,  t ) 

(2. 25), (2. 29) 

lL“/s| 

Dispersion  tensor 

D 

tn 

(2.29) 

!L2/s! 

Apparent  molecular 
diffusivity  of  solute  in 
solution  in  a  porous  medium 
including  tortuosity  effects, 
(about,  D~l.  X  10  |m  /s| 
for  NaCl  at  20. °C) 

D.  . 
ij 

(2.39c) 

1  L2 / s  I 

Element  of  dispersion  tensor 

D 

XX 

(2.39a) 

! L2/s  ! 

9 

Element  of  dispersion  tensor 

D 

yv 

(2.39b) 

i L“/s  | 

Element  of  dispersion  tensor 

DF. 

i 

(4.56) 

Element  of  vector  on  right 
side  of  pressure  equation 

DT.  . 

1] 

(4.87) 

Matrix  coefficient  of  U 
equation 

ET. 

l 

(4.90) 

Element  of  vector  on  right 
side  of  U  equation 

F 

m 

(2.42b) 

Dispersive  flux  in 
principal  direction  m 

F 

P 

(2.42a) 

Dispersive  flux  in 
principal  direction  p 

F 

s 

(2.41) 

Dispersive  flux  along 
stream  line 

gkg 

(4.32) 

Coefficient  of  Gauss 
integration 

G  TL 
s 

(4.89b) 

Element  of  vector  on  left 
side  of  U  equation 

G  TR 
s 

(4.89c) 

Element  of  vector  on  right 
side  of  U  equation 

GT  . 

l 

(4.89a) 

Element  of  vector  on  left 
side  of  U  equation 

I 

(2.25) 

1  1  1 

Identity  tensor  (ones  on 
diagonal,  zeroes  elsewhere) 

I  .  . 

1 J 

(  3.23) 

Matrix  arising  from 
integral  in  example 
problem 
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S  J  3  R  3  J  T  I  N  c 


S  j  t  a  A 


SUTRA 


VERSION  1234-20  313 


Ml  =  0 

NO'J  MAT  =  0 

. SET  NOUMAT  TO  OBTAIN  J  SOLUTION  3Y  SIMPLE  SACS  SUBSTITUTION 

BEGINNING  ON  SECOND  TIME  STEP  AFTER  A  PRESSURE  SOLUTION 
1=  the  solution  IS  NON-ITERATIVE  <ITRMAX=1) 
IF(MDO(IT-1/NPCYC).NE.O.AND.MOD<IT/NPCYC>.N£.O.ANO.IT.GT.2 
1  .  ANO.  ITRMAX  .  £2  .  1  )  ,NOUMAT=1 

. choose  solution  variable  on  this  time  step: 

ML=0  FOR  P  AND  U/  ML=1  FOR  o  ONLY/  AND  ML=2  FOR  U  ONLY. 
IFdT.EO.I  .ANO.ISSFlO.NE.2)  GOTO  1005 
IFCMOOCIT/NPCYC) .NE.O)  ML=2 
IF(MOO(IT/NUCYC) . NE . 0)  ML  =  1 

. MULTIPLY  TIME  STEP  SIIE  BY  QTMULT  EACH  ITCYC  TIME  STEPS 

IF(M00(IT/ITCYC).EQ.3.AND.IT.GT.1)  DELT=DELT*DTMULT 

. SET  TIME  STEP  SIZE  TO  MAXIMUM  ALLOWED  SIZE/  OTMAX 

IF(OELT.GT.OTMAX)  DEL T= OTMAX 

. INCREMENT  SIMULATION  CLOCK/  TSEC/  TO  END  OF  NEW  TIME  STEP 

1335  TSEC=TSEC*OELT 
TMIN=TSEC/60.00 
ThOUR=TMIN/60.00 
T0AY=THOUR/24.00 
TwE£K=T0AY/7.03 
TMONTH=TDAY/30. 437500 
TYEAR=TOA Y/365. 2500 

. SET  TIME  STEP  FOR  P  AND/OR  U/  WHICHEVER  ARE  SOLVED  FOR 

ON  THIS  TIME  STEP 
IF(ML-I)  1013/1023/1030 
1310  DLTUM1 =DELTu 
DLTPM1 =OELTP 
GOTO  1040 
1320  0LTPM1=0ELTP 
GOTO  1040 
1030  DLTUM1 =  0  E  LTU 
1340  CONTINUE 

OELTP=TSEC-TSECPO 

0ELTJ=TSEC-TSECU0 

. SET  PROJECTION  FACTORS  USED  ON  FIRST  ITERATION  TO  EXTRAPOLATE 

AHEAD  ONE-HALF  TIME  STEP 
3DELP=(OELTP/DLTPMl)*3.50D0 
SOELU=(DELTU/OL TUMI  1*3.5000 
B0ELP1 =B0ELP*1 .003 
30EL J1 =BDELU+1 . 003 

. INCREMENT  CLOCK  FOR  WHICHEVER  OF  P  AND  J  WILL  3E  SOLVED  FOR 

ON  THIS  TIME  STEP 
IFCML-1)  1360/1073/1330 
1 OoO  T SEC PD=  TSEC 
TSEC JO=TSEC 
GOTO  1090 
1  373  T  SECPQ  =  TSEC 
GOTO  1090 
1 380  TSECJO=TSEC 
1390  CONTINUE 


. 3  EG  I N  ITERATION  -  -  -  - 

1100  ITER=ITER*1 

IF(ML-I)  2003/2203/2400 


31210.. 

31220.. 

31230.. 
B1  240. . 

31250.. 
B1  260. . 

31270.. 
B1  280. . 

31290.. 
B1  300. . 

31310. . 
B1  320. . 
31  330. . 
B1  340. . 
B1  350. . 

31360. . 

31370.. 
B 1  380.  . 

31390.. 

31400.. 
B1410.. 
B1 420. . 
B 1 4  30 . • 
B1440.. 
B1450.. 
B1460.. 
31470.  . 
B 1 480 .  • 
B1490.  . 

31500.. 
B 1  5  1  0  .  . 
B1520.. 
B1 530. . 
B1 540. . 
B 1 5 50 .  . 
31  560.  . 

31570.. 
B 1 580.. 
B 1  5  90  .  • 
B 1 600  .  . 
B 1  6 1  0  .  . 
B1  620.  . 
B1  630.  . 

31640.. 
B1 650. . 
B1 660. . 
B1 670. . 
B1 680. . 
31690.  . 

31700.. 
B 1 710.  . 
B1 720. . 
31  730.  . 
31  740.  . 
B  1  7 50 .  . 

31760.. 

31770.. 
B1 780. . 
31  790.  . 
B1  300. . 


312 


SUBR3UTIN 


S  J  T  R  4 


Su  T  R  4 


VERSION  12S4-2D  310 


SHIFT  4 N 0  SET  VECTORS  FOR  TIME  STEP  WITH  BOTH  P  4ND  J  SOLUTIONS  31310 


2000  00  2025  1=1, NN  31820 

PITER(I)=PVEC(I)  31830 

PvEl(I)=PVEC(I)  B 1 8  4  0 

UITER(I)=JVE:CI)  31850 

RCITM1 (I)=RCIT (I)  B 1 360 

2025  RCIT  (I )  =  RHOWDORWOU*(  JITER  ( I ) -URHOWQ)  31370 

DO  2050  IP=1 ,  Np 3 C  31880 

I=IA3S (IPBC(IP) )  31890 

3PLITR(IP)=&NU*(P3C(I?)-PITER(I))  B 1 900 

2050  CONTINUE  31910 

IF(ITER.GT.1  )  GOTO  2600  B1920 

DO  2075  1=1, NN  B1930 

PITER(I)=30ELP1*°VEC(I)-30ELP*PM1(I)  B19<*0 

UITER(I)=BDELU1*UVEC(I)-B0ELU*UM1<I>  B1950 

PM1 (I)=PV£CCI)  B1960 

UM2(I)=UM1 (I)  B 1 9  70 

2075  UMl (I)=UV£C(I)  31980 

GOTO  2600  31990 

. SHIFT  4  ND  SET  VECTORS  ^OR  TIME  STEP  WITH  P  SOLUTION  ONLY  32000 

2200  DO  2225  1=1, NN  B2010 

PVEl(I)=PVECCI)  32020 

2225  PITERCI)=PVEC(I)  B2030 

IF(ITER.GT.I)  GOTO  2600  B2040 

DO  2250  1=1, NN  B2050 

PITER(I) =BDELPl *PVEC(I)“BDELP*PM1 (I)  B2060 

UITER(I)=UVEC Cl)  B2070 

RCITM1 (I)=RCIT(I)  B2080 

RCIT(I)=RH0W0»DRW0U*(JITER(I)-URH0W0)  B2090 

2  250  PM  1 (I)=PVEC(I)  32100 

GOTO  2600  32110 

. SHIFT  4N0  SET  VECTORS  FOR  TIME  STEP  WITH  U  SOLUTION  ONLY  B2120 

2400  IF(N0UMAT.E0.1 >  GOTO  2480  B2130 

00  2425  1=1, NN  B2140 

2425  UITER(I)=JVEC(I)  B2150 

IFCITER.GT.1)  GOTO  2600  B2160 

DO  2450  1=1, NN  B2170 

PITER<I)=PVEC(I)  B2130 

PVEL(I)=PVEC(I)  B2190 

UITER(I)=BOELUl*'JVEC(I)-BDELU*UMl(I)  3  2  200 

2450  RCITM1 (I)=RCIT (I)  32210 

DO  2475  IP=1,NP3C  B2220 

I  =  IA3S(  IPBC(IP)  )  32230 

3PLITR(IP)=GNU*(®BC(IP)--PITER(I))  B2240 

2475  CONTINUE  B2250 

2480  DO  2500  1=1, NN  32260 

JM2(I)=UM1 (I)  B2270 

2500  JM1 (I)=UVEC(I)  32280 

2600  CONTINUE  B2290 

B  2  300 

. INITIALIZE  ARRAYS  WITH  VALUE  De  ZERO  3231  0 

MATO  IM  =  NN*NB  I  32320 

IF(ML-I)  3000,3000,3300  B2330 

3000  CALL  ZER0(PM4T,M4TDIM,0.0D0)  B2340 

CALL  ZERO(PvEC,NN,O.ODO)  32350 

CALL  ZERO(VOL,NN, 0.000)  32360 

IF(ML-I)  3300,3400,3300  52370 

3  3  J  0  IF(NDJMAT)  3 3 5 0 , 3 3 50 , 3 3 7  5  32380 

3350  CALl  ZER0(U.M4T,M4T0IM,  0.000)  B2390 

3375  CALL  ZERC(UVEC,NN, 0.000)  32400 


O  O  O  O  O  O  O  O  O  CIO  o  o 


Sj3RDjTINE 


S  j  T  R  A 


s u t ra  -  version  i 2 3 - - 2 o  bio.. 


CONTINUE 

SET  TIME-OEPENOENT  BOUNDARY  CONDITIONS/  SOURCES  AND  SINKS 
FOR  THIS  TIME  STEP 
IF(ITER.EQ.1.AND.I3CT.NE.4) 

CALL  BCTIME(IP3C/P3C/IU3C/ J8  C  /  QI  N/ U  IN  /  GU  I  N/ I  QS  QP  /  I  Q  SOU/ 

!  IPBCT/IUBCT/IOSOPT/IjSOUT) 

,  S  £  T  SORPTION  PARAMETERS  FOR  THIS  TIME  STEP 
IFCML.NE.I.ANQ.ME.EQ.-I.AND.NOUMAT.EQ.O.ANO. 

I  ADS MOO. NE . 'NONE  ')  CAlL  A D SO R B ( C S 1 / C S 2 / C S 3/ SL / S R / U I T E R ) 

,00  ELEMENTWISE  CA.CULATIONS  IN  MATRIX  EQUATION  FOR  P  AND/OR  U 
IF(NDUMAT.EQ.O) 

I  call  ElEMEN(ML/IN/X/Y/THICK/PITER/UITER/RCIT/RCITM1 /POR/ 

!  ALMAX/ALMIN/ATAVG/PERMXX/PERMXY/PERMYX/PERMYY/PANGLE/ 

>  VMAG/VANG/VOL/PMAT/PVEC/UMAT/UVEC/GXSI/GETA/PVcL) 

,00  NOOEwISE  CALCULATIONS  IN  MATRIX  EQUATION  FOR  P  AND/OR  U 
CALL  N0DALB(ML/V0L/PMAT/PVEC/UMAT/UVEC/PITER/UITER/PM1/UM1/UM2/ 

I  POR/GIN/UIN/QUIN/CS1/CS2/CS3/SL/SR/SW/DSWOP/RHO/SOP) 

,  S  c  T  SPECIFIED  P  AND  U  CONOITIONS  IN  MATRIX  EQUATION  FOR  P  AND/OR 
CALL  BC3CML/PMAT/PVEC/UMAT/UVEC/IPBC/P3C/ IUBC/UBC/QPLITR) 

.SET  PINCH  NODE  CONOITIONS  IN  MATRIX  EQUATION  FOR  P  AND/OR  U 
IF(N’INCH-I)  4200/4203/4000 
CALL  PINChBCML/I^INCH/PMAT/PVEC/UMAT/UVEC) 

CONTINUE 

.MATRIX  EQUATION  FOR  P  ANO/OR  J  ARE  COMPLETE/  SOLVE  EQUATIONS: 
WHEN  K K K  =  0/  DECOMPOSE  AND  3 AC K - SuBST I TUTE / 

•(HEN  KKK  =  2/  BACK-SUBSTITUTE  ONLY. 

IHALFB=NBHALF-1 
IF(ML-I)  5303/5003/5530 
.SOLVE  FOR  P 
KKK=030000 

CALL  S0LVEB(KKK/PMAT/PVEC/NN/IHALFB/NN/N3I) 

,P  SOLUTION  NOW  IN  PVEC 
IF(ML-I)  5500/6003/5500 
.SOLVE  FOR  U 
<KK=D3QQQ0 

IF(NDUMAT)  5700/5700/5600 
KKK  =  2 

CALL  S0LVE3(KKK/UMAT/JVEC/NN/IHALF3/NN/NBI) 

.J  SOLJT ION  NOW  IN  UVEC 
CONTINUE 


.CHECK  PROGRESS  AND  CONVERGENCE  OF  ITERATIONS 
AND  SET  STOP  AND  GD  FLAGS: 

I STO°  =  -1  NOT  CONVERGED  -  STOP  SIMULATION 

ISTOP  =  0  ITERATIONS  LEFT  OR  CONVERGED  -  KEEP  SIMULATING 

ISTOP  =  1  LAST  TIME  STEP  REACHED  -  STOP  SIMULATION 

ISTOP  =  2  MAXIMUM  TIME  REACHED  -  STOP  SIMULATION 

I  GO  I  =  3  P  AND  U  CONVERGED/  OR  NO  ITERATIONS  DONE 

I  GO  I  =  1  ONLY  P  HAS  NOT  YET  CONVERGED  TO  CRITERION 

I  GO  I  =  2  ONLY  U  HAS  NOT  YET  CONVERGED  TO  CRITERION 

IGOI  =  3  BOTH  P  AND  ‘J  HAVE  NOT  YET  CONVERGED  TO  CRITERIA 

ISTOP=0 
IGOI=i 


3241  0 
32420 
82430 
B2440 
32450 
3  2  4  bO 
32470 
32480 
32490 
32500 
325  1  0 
B2520 
B2530 
B2540 
32550 
32560 
32570 
32580 
B2590 
32600 
B261  0 
B2620 
UB2630 
B2640 
B2650 
B2660 
32670 
B2680 
3  2690 
B  2700 
B2710 
82720 
B2730 
B2740 
32750 
B2760 
B2770 
B2780 
B2790 
B2800 
82810 
B2820 
B2830 
82  840 
82850 
B2860 
32870 
B2880 
B2890 
B2900 
B2910 
32920 
B2930 
B  2  940 
B2950 
B2960 
32970 
B2980 
82990 
B  3000 


SUBROUTINE 


S  J  T  R  A 


SUTRA  -  VERSION  1284-20  BIO.. 


IF(ITRMAX-I)  7500,7500*7000  B3010, 

7000  RPM=3.D0  B3020. 

R  UM  =  0. DO  B3030. 

I-'W0RS  =  0  B3040. 

IUWORS  =  0  B  30  50 • 

IF(ML-I)  7050,7050,7150  B3060. 

7050  00  7100  1=1, NN  B3070, 

RP=DA8S(PVEC(I) -PITER (I) )  B3080. 

IFCRP-RPM)  71 00,7060,7060  B3090. 

7060  RPM=RP  B 3 1 00 . 

IPWORS=I  B3110, 

7100  CONTINUE  B3120. 

IF(RPM.GT.RPMAX)  IGOI=IGOI+1  B3130. 

7150  IF(ML-I)  7200,7350,7200  B3140, 

7200  00  7300  1=1, NN  B3150, 

RU=DAaS(UVEC(I)-UITER(I) )  B3160. 

IF (RJ-RUM)  7300,7260,7260  B3170. 

7260  RUM=RU  B3180. 

IUWORS=I  B3190. 

7300  CONTINUE  33200. 

IF(R JM.GT.RUMAX)  IGOI =IG0I +  2  B3210. 

7350  CONTINUE  B3220, 

IFCI30I.GT.0. AND. ITER. EO.ITRMAX)  IST0P=~1  B3230, 

IF(IjOI.GT.O.ANO.ISTOP.EQ.O)  GOTO  1100  B3240. 

-  ------------  -  -----  B3250. 

C . ENO  ITERATION  --------------------------  B3260, 

C . - . - . - . B3270. 

C  B3280, 

7500  CONTINUE  B3290. 

IF(IST0P.NE.-1 . AND. IT. EQ. ITMAX)  IST0P=1  B3300, 

IFUST0P.NE.-1  .AND.TSEC.GE.TMAX)  IST0P  =  2  B3310, 

C  B3320. 

C . OJTPUT  RESULTS  FOR  T I  *1 E  STEP  EACH  NPRINT  TIME  STEPS  B3330. 

IF(IT.GT.1.ANO.MOO(IT,NPRINT).NE.3.AND.ISTOP.EQ.O)  GOTO  8000  B3340, 

C . PRINT  P  AND/OR  U,  ANO  MAY3E  SR  AND/OR  V  B3350, 

CALL  PRISOL(ML,ISTOP, IGOI, P V  EC , U V  EC , VMAG , VANG, SW>  B3360, 

C . CALCULATE  AND  PRINT  F^UID  MASS  ANO/OR  ENERGY  OR  SOLUTE  MASS  BU0GETB3370. 

IF(KBUOG.EQ.I)  B3380, 

1  CALL  BUDGET(ML,IBCT,VOL,SW,OSWDP,RHO,SOP,QIN,PVEC,PM1 ,  B3390, 

2  P3C,JPLITR,IPBC,IQSOP,POR,UVEC,UM1,UM2,UIN,OUIN,I3SOU,U3C,  B3400, 

3  CS1 ,CS2,CS3,SL,SR)  33410, 

C . PLOT  P  RESULTS  B3420, 

IFUPL0TP.NE.1.0R.ML.EQ.2)  GOTO  7680  B3430, 

CALL  PLOT (1 ,2,X,Y,CC,INDEX,XX,YY,PVEC)  33440, 

C . PLOT  U  RESULTS  B3450, 

7580  IF (KPLOTU.NE. 1 .OR.ML.EQ. 1 )  GOTO  8000  B3460, 

N?=3  B3470, 

IF(ME.EW.*1)  N  P  =  4  33480 

CALL  PL0T(1,NP,X,Y,CC, INDEX, XX, YY/UVEC)  33490 

8000  CONTINUE  B3500 

C  33510 

C . MAKE  OBSERVATIONS  AT  OBSERVATION  NODES  EACH  N03CYC  TIME  STEPS  33520 

IF(N3BSN-1 .GT.O)  CALL  03 S E R V ( 1 , I  0 6 S , I T 03 S , P03 S , U 03 S , OB  ST  I M ,  33530 

1  PVEC,UVEC,ISTOP)  33540 

C  33550 

C . STORE  RESULTS  FOR  POSSIBLE  RESTART  OF  SIMULATION  EACH  TIME  STEP  B35&0 

Ir(ISTORE.NE.I)  GOTO  3150  B3570 

CALL  STORE  (PVEC,'JVEC,RM1,JM1,;S1,RC:T,Sw,P3C>  33580 

C  33590 

dISO  IF(ISTOP.EO.D)  GOTO  IJOO  B3600 
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3  J  3  S  0  j  T I  N  E 


s  j  t  a  a 


Sutra 


VERSION  1 234-20  313... 


,  • • • • 6  *  4  0  TIME  STE^  ******************1 
********************************1 


************************** 
r********************** 
r*********** 


. COMPLETE  OUTPUT  AMO  TERMINATE  SIMULATION 

IF(ISTORE.EQ.I)  WRITE(6/810Q) 

3100  FORMAT  (  / /////II  X/ ' **  *  LAST  SOLUTION  MAS  SEEN  STORED  '/ 

1  'ON  UNIT  66  ***'} 

. OJTPUT  RESULTS  Or  OBSERVATIONS 

8  200  IF(N03SN-1  .OT.O)  CALL  03 S £R V ( 2 / I  0 B S / I  T OB S / PO 8 S / UOBS / OB S T IM/ 

1  PVEC/UVEC/ISTOP) 

. OUTPUT  ENO  OF  SIMJLATION  MESSAGE  ANO  RETURN  TO  MAIN  FOR  STOP 

IF(ISTOP.GT.O)  GOTO  3400 
IF(I30I-2)  8230/8260/3290 
3230  WRITE(6/8235) 

3235  C0RMAT(////////11X/'SIMULATIDN  TERMINATED  DUE  TO  '/ 

1  ' NON-CONVERGENT  PRESSURE*/ 

2  /  1 1  X/ ' **********  **********  ***  **  *, 

3  ***************  ********') 

RETURN 

3260  IF (ME)  8262/3262/8266 
3262  wRITE(6/8264> 

3264  F0RMAT(////////11X/'SIMULATI0N  TERMINATED  DUE  TO  '/ 

1  'NON-CONVERGENT  CONCENTRATION'/ 

2  / 1 1 x /'*«**♦**** *  **********  ***  *•  *, 

RETURN 

8266  WRITE(6/8268) 

8268  F0RMAT(////////1 1 X/ 'SIMULATION  TERMINATED  DUE  TO  '/ 

1  'NON-CONVERGENT  TEMPERATURE'/ 

2  / 1 1 X /'******** **  **********  ***  **  * , 

RETURN 

3290  IF(ME)  8292/8292/8296 
3292  RRITEC6/8294) 

3294  F0RMAT(////////1 1 X/' SIMULATION  TERMINATED  DUE  TO  '/ 

1  'NON-CONVERGENT  PRESSURE  ANO  CONCENTRATION'/ 

RETURN 

8296  WRITE (6/8298) 

8293  FORMAT (////////I IX/'SIMULATION  TERMINATED  DUE  TO  '/ 

1  'NON-CONVERGENT  PRESSURE  ANO  TEMPERATURE'/ 

2  /11X/'**********  **********  ***  •*  *, 

3  '***•••*•******  ********  *..  ***********•) 

RETURN 


3430  IF(IST0P.EQ.2)  GOTO  8500 
WRITE (6/3450) 

3450  FORM  AT (//////// 1 1 X/ ' SJTRA  SIMJLATION  TERMINATED  AT  COMPLETION 

1  'OF  TIME  STEPS'/ 

2  11X/'*****  *••*•*••••  **********  **  *•••**.*•• 
j  '**  ****  *•**•') 

RETURN 

3  5  JO  WRITE(6/855Q) 

3553  FORMAT (////////I  1 X/ 'SJTRA  SIMULATION  TERMINATED  AT  COMPLETION 
1  'OF  TIME  PERIOD'/ 


****33610. 
****83620. 
****83630. 
33640. 
33650. 
3  36o0 . 
B  3670 . 
33680. 
33690. 
33700. 
33710. 
33720. 
B3730. 
33740. 
B3750. 
B3760  . 
33770. 
B3780. 
33790. 
83800. 
3381 0. 
33820. 
B3830. 
33840. 
33850. 
33860. 
83870. 
B3880. 
33890. 
B3900. 
83910. 
33920. 
B3930. 
B3940. 
83950. 
B3960. 
B3970. 
B3980. 
33990. 
34000. 
34010. 
84020. 
B4030 . 
34040. 
84050. 
34060. 
84070 . 
34080. 
34090. 
34100. 
34110. 
B4l 20. 
'/  34130. 

34140. 
'/  34 1 50 . 

34160. 
B41 70. 
34180. 
'/  34190. 

34200. 


SUBROUTINE  S  J  T  R  A  SUTRA  -  VERSION  1284-2D  BIO.. 


■  •  *  *  *  *  * 

RETURN 


1  IX, 
***•**') 


'**••*  **********  **********  **  **i 


B421  0 
B4220 
B4230 
B4240 
B4250 


PnD 


ft  n  n  n  n  ft 


C  SUBROUTINE  I  N  C  4  T  1  SUTRA  -  VERSION  1  25A-2D  CIO 


subroutine  i  n  o  a  t  i  sutra  -  version  12SA-2D  cio... 

C20. . . 

*»*  PURPOSE  :  CIO... 

***  TO  INPUT  /OUTPUT/  AND  ORGANIZE  A  MAJOR  PORTION  OF  CAC... 

***  UNIT-5  INPUT  OATA  (DATASET  5  THROUGH  DATASET  1 5  S  >  C50... 

C  6  0 .  .  . 

SUBROUTINE  INDATKX/Y/THICK/POR/ALMAX/ALMIN/ATAVG/PERMXX/PERMXY/  C?0.  .  . 
1  PERHYX/PERMYY/PANGLE/ SOP)  CEO... 

IMPLICIT  DOUBLE  PRECISION  (A-H/C-Z)  C?0... 

CHAR ACT£R*10  adsmoo  C100.. 

CHARACTERS  UTYPE(2)  C  1  1  C  .  . 

CHARACTER*6  STYPE(2)  C 1 20  .  . 

COMMON/MOOSOR/  AOSMOO  Cl  3D.. 

COMMON/OIMS/  NN/NE/NIN/NSI/N3/N6HALF/NPINCH/NP&C/NUBC/  C 1  AC  .  . 

1  NS0P/NS0U/N3CN  C  T  5  0 .  . 

COMM ON/TIME/  OELT/TSEC/TMIN/THCUR/TCAY/TWEEK/TFONTH/TYEAR/  Cl  to.. 

1  TMAX/OELTP/DELTU/DLTPMl/DLTUMl/IT/ITMAX  C17C.. 

COMMON /CONTRL/  GNU/ UP / DT MULT / OT M A X / M E / 1  $ S PL 0 /  I  $  ST R A / I T C YC /  Cl  SO.  . 

1  NPCTC/NUCYC/NPRINT/IREAO/ISTCRE/NOUMAT/ IUNSAT  C 1 90 . . 

COMMON/ITERAT/  RPM/RPM AX/RUM/RUM AX/ITER/ITRMAX/IPWORS/IUWORS  C200.. 

COMMON/TENSOR/  GRAVX/GRAVY  C  2 1 C  .  . 

COMMON/ PAR AMS/  COMPFL/COMPMA/CRWOU/CW/CS/RHOS/DECAY/SIGMAW/SIGMAS/C220.. 
1  RHOWO/URHCKO /VISCO/PR 00 FI/ PROOS1/PRODFC/PRODSO/CH II /CHI2  C230.. 

COMMON/SATPAR/  PCENT/SWRES/PCRES/SSLOPE'/STnCPT  C2A0.. 

COMMON/KPRINT/  KNOOAL/KELMNT/KINCIO/KPLOTP/K.PLOTU/KVEL/K.BUOG  C25C.. 

DIMENSION  X(NN)/Y(NN)/THlCX(NN)/PC'R(NN)/SOP(NN)  C260.. 

DIMENSION  PERMXX(NE) /PERMXY (NE) /PERMYX ( NE )/ PE RMY Y (NE) /P ANGLE (NE>/  C270. . 
1  ALMAX(NE)/ALMIN(NE)/ATAVG(NE)  C  2  30 . . 

OATA  UTYPEO)/'  TEMPERATURES  ' // UT  YPE  (  2  )  /  *  CONC  ENT  R  AT  I  ON  S  '  /  C290.. 

OATA  STYPE(1)/*ENERGY'//STYPE(2)/'S0LUTE'/  C300.. 

C  C  3  1  0  .  . 

INSTOP  =  0  C  3 20  . . 

C  C  3  3  0  . . 

C . INPUT  OATASET  5:  NUMERICAL  CONTROL  PARAMETERS  C3A0.. 

REAOC5/50)  UP/GNU  CI50.. 

50  F0RMAT<G10. 0/315.0)  C36C.. 

WRITE(6/70  U°/GNU  C37C.. 

7  C  F0RMAT<////11X/'N  UMERICAL  CONTROL  DAT  A'//  C  380.. 

1  11X/F15.5/5X/'" UPSTREAM  WEIGHTING"  FACTOR'/  C390.. 

2  11X/1?015.A/5X/'SPECIPIED  PRESSURE  BOUNDARY  CONDITION  FACTOR')  CAOC.. 

C  C  A  1  0  •  . 

C . INPUT  OATASET  6:  TEMPORAL  CONTROL  AND  SOLUTION  CYCLING  DATA  CA20.. 

RE  AD (5/ ICO)  ITMAX/CELT/TMAX/ITCYC/CTMULT/CTMAX/NPCYC/NUCYC  C A  30.  . 

100  pORMAT(I5/2G15.0/Z10/G10.C/G15.C/2I5>  CAAC.. 

WRITE (6/ 120  ITMAX/OELT/TMAX/ ITC YC/DTMULT/DTMAX/NPCYC/NUCYC  CA5C.  . 

12C  FORMAT  <1H1////11X/'T  EMPORAL  CONTROL  AND  '/  CA60.. 

1  'SOLUTION  CYCLING  OATA'/  CA70.. 

2  //11X/I15/5X/'MAXIMUM  ALLOWEO  number  cf  time  STEPS'  CABO.. 

3  /11X/1P015.A/5X/'INITIAL  TIME  STEP  (IN  SECONDS)'  C  A  9Q .  . 

A  /11X/1P015.A/5X/'MAXIMUM  ALLOWED  SIMULATION  TIME  (IN  SECONDS)'  C50C.. 

5  //11X/I1 5/5X/'TIME  STEP  MULTIPLIER  CYCLE  (IN  TIME  STEPS)'  C510.. 

6  /I 1X/0PF1 5. 5/5X/ 'MULTIPLICATION  FACTOR  FOR  TIME  STEP  CHANGE'  C52C.. 

7  711X/1P015.A/5X, 'MAXIMUM  ALLOWED  TIME  STEP  (IN  SECONDS)'  C53C.. 

8  //11X/I15/5X/'FLOW  SOLUTION  CYCLE  (IN  TIME  STEPS)'  C5A0.. 

9  /‘I  1X/I15/5X/'TRANSP0RT  SOLUTION  CYCLE  (IN  TIME  STEPS)')  C5  50.. 

IF(NPCYC.GE.I.AND.NUCYC.GE.I)  GCTO  HO  C  5  60  . . 

WRITE  (6/1  30  C  5  70  .  . 

13C  F0R«AT(//11X/'*  *  *  *  ERROR  DETECTED  :  BOTH  NPCYC  AND  '/  C53C.. 

1  'XlUCYC  MUST  BE  SET  GREATER  THAN  OR  EQUAL  TO  1.')  C590.. 

INSTCP=INSTC?-1  C  6  CO • . 


31  8 


subroutine 


i  n  o  a  t  1 


SUTRA  -  VERSION  1264-20  CIO 


Ufl  IF(NPCYC.EQ.I.OR.NUCYC.EQ.I)  GCTO  160  C610. 

WRITE  (6*1  50  C620. 

150  F0RMAT(//11X/'*  *  *  *  ERROR  DETECTED  :  EITHER  NPCYC  OR  '/  CS30. 

1  'NUCYC  MUST  EE  SET  TO  1.')  C64C. 

INST0P=INST0P-1  C  5  5  0  . 

1 6  C  CONTINUE  C  6  6  0 . 

....SET  MAXIMUM  ALLOWED  TIME  STEPS  IN  SIMULATION  FOR  C670. 

STEADY-STATE  FLOW  AND  STEADY-STATE  TRANSPORT  SOLUTION  MODES  CfcSC. 
IFUSSFL0.EQ.1)  THEN  C6  90. 

NPC YC=ITMAX+1  C  7 0 0 . 

NUCYC  =  1  C  7  1  C  . 

ENOIF  C720. 

IF(ISSTRA.EQ.I)  I TM  AX  =  1  C730. 

C74C. 

....INPUT  DATASET  7:  OUTPUT  CONTROLS  AND  OPTIONS  C75C. 

READ (5/170)  NPRINT/KNODAL/KELMNT/KINCID/KPLOTP/KPLOTU/KVEL/K9UCG  C760. 
170  F0RMAT<16I5)  C770. 

WRITE(6/172)  NPRINT  C  7  30 . 

172  FORMAT (////IIXz'O  UTPUT  CONTROLS  AND  C790. 

1  'OPTION  $'//11X/I6/5X/'PRINTE0  OUTPUT  CYCLE  '/  C?CO. 

2  '(IN  TIME  STEPS)')  CE10. 

IFUNODAL.EQ.-M)  WRITE(6/174)  C320  . 

IF(KNCOAL.EQ.O)  WRITE (6/1 75 )  .  C  330. 

174  F0RMAT(/11X/*“  PRINT  NOOE  COORDINATES/  THICKNESSES  AND'/  CE4C. 

1  '  POROSITIES')  C350. 

175  F0RMAT(/11X/'-  CANCEL  PRINT  OF  NODE  COORDINATES/  THICKNESSES  AND'/CS60. 

1  '  POROSITIES')  C  3  70 . 

IF(KELMNT.EC.+1)  WRITE(6/176)  C330. 

I*(KELMNT.EC.G)  WRITE (6/1 77)  CE90. 

176  FORMA T(11X/'“  PRINT  ELEMENT  PE RME AE I  LI T I E S  AND  D I SP E R S I  V  I T  I  E S  '  )  C9C0. 

177  FORMAT ( 1 1 X/ '-  CANCEL  PRINT  CF  ELEMENT  PERMEABILITIES  AND  '/  C91C. 

1  'OISPERSIVITIES')  C920. 

IF(KINCI0.EQ.+1)  WRITE(6/1-78)  C930. 

IF(KINCID.EQ.O)  WRITE (6/1 79)  C94C. 

173  FORMAT ( 1 1 X/ '-  PRINT  NODE  AND  PINCH  NODE  INCIDENCES  IN  EACH  '/  C95C. 

1  'ELEMENT')  C960. 

179  FORMAT (1 1 X/ '-  CANCEL  PRINT  OF  NODE  AND  PINCH  NOOE  INCIDENCES  '/  C’7C. 

1  'IN  EACH  ELEMENT')  C960. 

IF(KPL0TP.EQ.*1  )  WRITE(6/180)  C99Q. 

IF (K PLOT?. EQ.O)  WRITE (6/1 31)  C100C 

130  F0RMAT(/11X/'-  PLOT  PRESSURES  ON  EACH  TIME  STEP  WITH  OUTPUT')  C1C1C 

131  F0RMAT(/1 1 X/ '-  CANCEL  PLOT  OF  PRESSURES')  C1G20 

I  ME  =  2  C103C 

IF(ME.EQ.M)  IME  =  1  C104C 

IF(KPLOTU. EQ. >1 )  WRITE(6/1£2)  UTYPE(IME)  C1C5C 

IF(KPLOTU.EQ.O)  WRITE(6/133)  UTYPE(IME)  C 1 060 

132  FORMAT ( 1 1 X/ '“  PLOT  '/A14,'  ON  EACH  TIME  STEP  WITH  OUTPUT')  C1C7C 

1 S  3  FORMATd  IX/ *-  CANCEL  PLOT  OF  */A14)  C1C3C 

IF(KVEL.EC.+1 )  WRITE(6/164)  C1C90 

IF(KVEL.EQ.O)  WRITE(6/135)  C11CC 

134  FORM A T ( / 1 1 X / ' “  CALCULATE  ANO  PRINT  VELOCITIES  AT  ELEMENT  '/  C111C 

1  'CENTRCIOS  ON  EACH  TIME  STEP  WITH  OUTPUT')  C112C 

135  F0RMAT(/1 IX/ '-  CANCEL  PRINT  CF  VELOCITIES')  C1130 

IF(KBUDG.EQ.*1  )  WRITE(6/186)  STYPE(IME)  C114C 

IF(KBUCG.EC.O)  WRITE(6/187)  C115C 

166  F OR M AT ( / 1 1 X / ' _  CALCULATE  AND  PRINT  FLUID  AND  '/A6/'  BUDGETS  '/  C1160 

1  'ON  EACH  TIME  STEP  WITH  OUTPUT')  C117C 

137  FORMAT (/1 1 X/ '“  CANCEL  PRINT  OF  BUDGETS')  C113C 

C119C 

....INPUT  CATASET  3:  ITERATION  CONTROLS  C12CC 


SUBROUTINE 


I  N  D  A  T  1 


SUTRA  -  VERSION  1234-2C  C1C... 


READ (5/ 190)  ITRMAX/RPMAX/RUMAX 
190  F0RMAT(I1C/2G10.0) 

IF(ITRMAX-I)  192/192/194 

192  WRITEI6/193) 

193  F0RMAT(////11X/'I  TERATICN  CONTROL  OAT  A'/ 

1  / / 1 1 X / *  NON-ITERATIVE  SOLUTION') 

GOTO  196 

194  WRITE  (6/195)  ITRMAX/RPMAX/RUMAX 

195  P0RMATC////1 1 X/'I  TERATICN  CONTROL  DATA'/ 

1  //I  1 X/I1 5/5X/ 'MAXIMUM  NUMBER  OF  ITERATIONS  PER  TIME  STEP'/ 

2  / 1 1 X/ 1  PCI  5. 4/ 5X/ 'ABSOLUTE  CONVERGENCE  CRITERION  FOR  FLOW'/ 

3  '  SCLUTION'/11X/1PD15.4/5X/'A2SOLUTE  CONVERGENCE  CRITERION'/ 

4  '  FOR  TRANSPORT  SOLUTION') 

196  CONTINUE 


DATA' 


C . INPUT  CATASET  9:  FLUIO  PROPERTIES  C136C 

RE  AO (5/200)  COMPFL/CW/SIGMAW/RhOwO/URHOWO/ORWOU/VISCO  C137C 

C . INPUT  OATASET  10:  SOLIO  MATRIX  PROPERTIES  C1330 

R=A0(5/20C)  COMPMA/CS/SIGMAS/RHOS  C1390 

200  FORMAT (6G10.0)  C14CC 

IF(M2.EQ.*1)  C141D 

1  WRITE  (6/210)  COMPFL/COKPM  A/CW/C  S  /  V I  SCO  /  RHOS  /  RHOWO/ORVIDU/  URHCWO  /  C 1  4  20 

2  SIGMAW/SIGMAS  C1430 

210  FORMATd  H1////1 1  X/'C  ONSTANT  PROPERTIES  OF'/  C144C 


Cl  21 C. 
Cl 22C. 
C123C. 
Cl 24C. 
Cl  230  . 
Cl 25C. 
Cl 27C. 
Cl 23C. 
Cl  290. 
Cl  300. 
C131C. 
Cl 32C. 
Cl 33C. 
C134C. 
Cl 35C. 
Cl  360. 
Cl  370. 
Cl  330 . 
Cl  390. 
Cl 4CC. 
C141D. 


210  FORMATd  H1////1 1  X/'C  ONSTANT  PROPERTIES  OF'/  C144C. 

1  '  FLUID  ANO  SOLIO  MATRIX'  C1450. 

2  //11X/1PD15.4/5X/'C0MPRESSIBILITY  OF  FLUID ' /1 1  X/1  PD1  5. 4/ 5 X/  C146C. 

3  'COMPRESSIBILITY  OF  POROUS  MATRIX'//1 1 X/1 PD1 5.4/5X/  C1470. 

4  'SPECIFIC  MEAT  CAPACITY  OF  FLUID' / /1 1 X/ 1  PD  1 5 . 4, 5X/  C143C. 

5  'SPECIFIC  MEAT  CAPACITY  OF  SOLIO  GRA I N  ' / /I 3X/ ' FLUI D  VI SCOS IT Y ' / C U 90 , 

6  '  IS  CALCULATED  3Y  SUTRA  AS  A  FUNCTION  CF  TEMPERATURE  IN  '/  C150C. 

7  'UNITS  OF  Ckg/(m»s)]‘//11X/1P015.4/5X,'VISCC/  CONVERSION  C151C. 

8  'FACTOR  FOR  VISCOSITY  UNITS/  Coesired  units}  =  VISCO*'/  C152C. 

9  'Ckg/(m*s)]'//1lX/1?015.4/5X/'DENSITY  OF  A  SOLIO  GRAIN'  C1530. 

*  // 1 3X/ 'FLUIO  DENSITY/  RHOW'/I 3X/ 'CALCULATED  BY  '/  C1540. 

1  'SUTRA  IN  TERMS  CF  TEMPERATURE/  U/  AS : '/1 3X/ ' RHOW  =  RHOWO  +  '/  C1  550. 

2  ' DRWDU* (U-URMOwO)' //1 1 X/1 P01 5 .4/5X/'FLUID  BASE  DENSITY/  RHOWO'  C1  560. 

3  /11X/1PD15.4/5X/'COcFFICIENT  OF  DENSITY  CHANGE  WITH  '/  C157C. 

4  'TEMPERATURE/  G R WOU ' / 1 1 X / 1 PD1 5 . 4 / 5 X/ '  T EMP E R ATUR E /  URHOWO/  '/  C153C. 

5  'AT  WHICH  FLUIO  DENSITY  IS  AT  EASE  VALUE/  RHOWO'  C159C. 

6  //11X/1?D15.4/5X/'THERMAL  CONDUCTIVITY  OF  FLUID'  C160C. 

7  /11X/1PD15.4/5X/'TH£RMAL  CONDUCTIVITY  OF  SOLID  GRAIN')  C 1 6 1 0 . 

IF(ME.EG.-I)  C162C. 

1  WRITE (6/220)  COMPFL/COMPMA/VI SCC/RH0S/RH0WC/DRWDU/URH0W0/SIGMAWC1 630. 

220  F03MAT(1rt1////11X/'C  ONSTANT  PROPERTIES  OF'/  C1640. 

1  '  FLUIO  ANO  SOLID  MATRIX'  C165C, 

2  //11X/1PDl5.4/5X/'COMPRESSieiLITY  OF  FLUID  ' / 1 1 X / 1 P01 5 . 4/ 5 X /  C1  660. 

3  'COMPRESSIBILITY  OF  POROUS  MATRIX'-  C167C. 

4  //11X/1PD15.4/5X/'FLUID  VISCOSITY'  C163C. 

4  //11X/1P015.4/5X/'DENSITY  OF  A  SOLID  GRAIN'  C169C. 

5  //I 3X/ 'FLUID  DENSITY/  RHC W ' / 1 3 X/ ' C ALCUL AT E D  BY  '/  C170C. 

6  'SUTRA  IN  TERMS  OF  SOLUTE  CONCENTRATION/  U/  AS:'/  C1710. 

7  / 1 3X / ' RHOW  »  RHOWO  ♦  DRWDU* (U”URH0W0) '  C172C. 

8  V/11X/1P015.4/5X/'FLUID  BASE  DENSITY/  RHOWO'  C1730. 

9  /11X/1PD15.4/5X/'C0EFFICIENT  OF  OENSITY  CHANGE  WITH  '/  C1740. 

*  '“SOLUTE  CONCENTRATION/  CRWDU'  C175C, 

1  /I 1X/1PD15.4/5X/'S0LUTE  CONCENTRATION/  URHOWO/  '/  C176C. 

4  'AT  WHICH  FLUID  OENSITY  IS  AT  BASE  VALUE/  RHOWO'  C177C. 

5  //11X/1P015.4/5X/'MCLECULAR  CIFFUSIVITY  OF  SOLUTE  IN  FLUID')  C 1 7 SO . 

C  C179C, 

C . INPUT  DATASET  11:  ADSORPTION  PARAMETERS  C150C, 


320 


S  'J  5  R  0  U  T  INS 


I  N  D  A  T  1 


SUTRA  -  VERSION  12E4-2D  CIO.. 


REA0C5/230)  ADSM.DC/ CH1 1/ CHI  2 
:  F0RMATCA10/2G1C.0) 

IFCME.EQ.+1)  GOTO  243 
I=(ACSMOO.EQ.'NONE  ')  GOTC  274 

WRITE (6/232)  ADSMOO 

!  FCRMAT(////11X/*A  OSORPTION  PARAMETER  S' 

1  //16X/A1Q/5X/'EQUILI5RIUM  SCRPTION  ISOTHERM') 

GOTO  236 
,  WRITS (6/235) 

i  FORMAT (////I  IX/ 'A  OSORPTION  PARAMETER  S' 

1  //16X/'N0N-SGR3ING  SOLUTE') 

>  IF((AOSMOO.EQ. 'NONE  ' ) . OR . ( AO SMCC . E C . 'L I N E A R  ').0R. 

1  (AOSMOO. EC. 'FREUNOLICH') .OR. (ADSMOD. EQ. 'LANGMUIR  '))  GOTO 
WRITE  (6/  237) 

’  F03MAT(//11X/'*  *  *  *  ERROR  OETECTEO  :  TYPE  OF  SORPTION  MODEL 

1  'IS  NOT  SPECIFIcO  CORRECTLY. '/1 1 X/ 'CHECK  FOR  TYPE  AND  '/ 

2  'SPELLING/  ANO  THAT  TYPE  IS  L E FT- JUS T I F I E 0  IN  INPUT  FIELD') 
INST0P=INST0P-1 

!  IFCAOSMOO.EQ. 'LINEAR  ')  WRITE<6/242)  CHI1 
!  FORMAT (1 1X/1 P01 5 • 4 / 5 X /  'LINEAR  CISTRIEUTICN  COEFFICIENT') 
IFCAOSMOO.EQ. 'FREUNOLICH')  WRITE(6/244)  CHI1/CHI2 
,  FCRMAT(11X/1P015.4/5X/'FREUN0LICH  DISTRIBUTION  C OE c F IC I  ENT ' 

1  /11X/1PD15.4/5X/'SECCND  FREUNOLICH  COEFFICIENT') 

IF(ADSM00.EQ.'FR£UNDLICH'.AN0.CHI2.LE.0'.  00)  THEN 
WRIT £(6/ 24 5) 

i  FORMATdIX/'*  *  *  *  ERROR  CETECTEO  :  SECOND  COEFFICIENT  '/ 

1  'MUST  BE  GREATER  THAN  ZERO') 

INST0P=INST0P-1 

ENOIF 

IFCAOSMOO.EQ. 'LANGMUIR  ')  WRITEC5/246)  CHl1/ChI2 

>  FORMAT (1 1 X / 1 P 0 1 5.4/5X/ 'LANGMUIR  CISTRI3UTICN  COEFFICIENT' 

1  /I 1X/1P01 5.4/5X/'SECONO  LANGMUIR  COEFFICIENT') 


.INPUT  DATASET  12:  PROOUCTICN  OF  ENERGY  OR  SCLUTE  MASS 
i  REA0C5/200)  PRCOrO/PRODSO/PROOFI/PROOSI 

IFCME.EQ.-1)  WRITEC6/25G)  P ROD F 0/ P ROOSC/ PROOF  1 / P ROOS 1 
!  FCRMATC////1 1 X/'P  ROOUCTION  ANO  DECAY  OF 

1  'SPECIES  MAS  S ' ✓ / 1 3X/ 'PRODUCTION  RATE  (+)'/13X/ 

2  'OECAY  RATE  (-) ' // 1 1 X/1PD15.4/5X/'ZERO-OROER  RATE  OF  SOLUTE 

3  'MASS  PROOUCTION/GECAY  IN  F LU I C ' / 1 1 X , 1 FC 1 5 . 4 / 5 X / 

4  'ZERO-ORDER  RATE  OF  ADSORBATE  MASS  PRODUCT  ICN/DECAY  IN  '/ 

5  ' IMMOBILE  PHASE'/11X/1P015.4/5X/'FIRST-0RDER  RATE  OF  SOLUTE 

3  'MASS  PROOUCTION/OSCAY  IN  FLUIC'/11X,1PD15.4/5X/ 

4  'FIRST-ORDER  RATE  OF  ADSORBATE  MASS  PRODUCTION/DECAY  IN  '/ 

5  'IMM05ILE  PHASE') 

IFCME.EC.+1)  WRITEC6/26C)  P R OCFC / P RG C SO 
I  F0RMATC////11X/'P  ROOUCTION  ANO  LOSS  OF 

1  'S  N  E  R  G  Y'//1 3X/ 'PRODUCTION  RATE  (0'/13X/ 

2  'LOSS  RATE  ( -) ' / / 1 1 X / 1  PC  1 5 . 4 / 5X / ' Z E RO"ORDE R  RATE  OF  ENERGY 

3  'PRCOUCTIGN/LCSS  IN  F LU I C ' / 1 1 X / 1 P 0 1 5 . 4 , 5 X / 

4  'ZERO-ORDER  RATE  OF  ENERGY  FROOUCTION/LOSS  IN  '/ 

5  ' SOL  I  0  GRAINS') 

.SET’  PARAMETER  SWITCHES  FOR  EITHER  ENERGY  OR  SCLUTE  TRANSPORT 
IFCme)  272/272/274 
FOR  SOLUTE  TRANSPORT: 

1  C  S  =  D . 000 
C  w  =  1 .CCO 
SIGMA$=C.OCO 
GOTO  278 

FOR  ENERGY  TRANSPORT: 


Cl  51  C 
Cl  32C 
C133C 
Cl  340 
C 1  3  5  C 
Cl  96C 
C187C 
Cl  SBC 
Cl  E90 
C193C 
C191C 
Cl  920 
238  C193C 
Cl  ? 4 C 
'/  C 1 9 5 0 
Cl  96C 
Cl  970 
C193C 
C199C 
C2CCC 
C201C 
C  2020 
C  203C 
C  2040 
C20SC 
C  2060 
C207C 
C  203  C 
C209C 
C210C 
C211C 
C212C 
C213C 
C214C 
C215C 
C216C 
' /C  2 1 70 
C  2  1  8  C 
'/  C219C. 
C22CC. 

C  2  2 1  C 
'/  C222C 
C223C 
C  2  240 
C  2  2  5  0 
C226C.. 
'/  C  2  2 70  . . 

C  2230 
'/  C229C.. 

C23CC. . 
C  2  3 1  0  .  . 
C232C. . 
C  2  3  3  0 . . 
C234C . . 
C235C. . 
C  2  3  6  0  . . 
C237C. . 
C23EC. . 
C2  39C. . 
C24CC. . 


subroutine 


SUTRA  -  VERSION  1  234*20  C 1  C  ■ 


274  AOSMOD='NONE 
CHI1 =0.000 
CHI2=0.C00 
PROOF  1=0.000 
PR00S1 =O.CDO 

C  DIVIDE  SIGMA  TO  CANCEL  MULTIPLICATION  3Y  RHOW*CW 

c  in  subroutine  elemen. 

RCO=RHGwG*CW 

s:gmaw=sigm.aw/rco 

sigmas=sigmas/rco 

278  CONTINUE 

c 

C . INPUT  DATASET  13:  ORIENTATION  OF  COORDINATES  TO  GRAVITY 

RE  AD  <  5#  200)  3R AVX/GRA VY 
WRITE  (6/320  GRAVX, GRAVY 

320  F0RMATC////1 1X#'C  OORDINATE  ORIENTATION 

1  *  T  0  GRAVIT  Y  * / / 1 3X#'CCMP0NENT  OF  GRAVITY  VECTOR  '# 

2  /13X#'IN  +  X  DIRECTION#  G R A VX ' / 1 1 X # 1 PD1 5 . 4# 5X# 

3  'GRAVX  =  -GRAY  *  0 ( c L E V A T I  ON ) / DX * / / 1 3 X # * C CMPON ENT  OF  GRAVITY 

4  '  VECTOR'/I 3X# 'IN  +Y  DIRECTION#  G R A V Y ' / 1 1 X # 1 PD1 S . 4 # 5 X# 

5  'GRAVY  =  -GRAV  *  D(ELEVATI0N)/0Y') 

C 

C . INPUT  DATASETS  1 4  A  AND  143:  NCOS  WISE  DATA 

READ(5#330)  SC ALX# SCALY# SCALTH#PORFAC 
330  FORMAT (5X#4G10.0) 

DO  450  1  =  1 #  NN 

READ ( 5#40C)  II#X(II)#Y(II)#THICK(II)#PCRCII) 

4CC  F0RMAT(I5#4G10.0) 

X(II)=X(II)*SCALX 

Y(II)=Y(II)*SCALY 

THICK(II)=THICK(II)*SCALTH 

P0R(II)=P0R(II)*?0RFAC 

C  SET  SPECIFIC  PRESSURE  STORATIVITY#  SOP. 

450  S0P<II)=<1 .DC-POR(II) ) *CCMPMA*PCR(II)*COMPFL 

460  IFUNOOAL.EQ.O)  WRITE  (6#469)  SC  A  LX# SC AL Y# SC AL TF# PORF AC 

469  F0RMAT(1rt1////1lX#'N  ODE  INFORMATIO  N'//16X# 

1  'PRINTOUT  OF  NODE  COORDINATES#  THICKNESSES  AND  POROSITIES  '# 

2  'CANCELLED. '//16X# 'SCALE  FACTORS  :  ' / 3 3 X # 1 ? D1 5 . 4, 5 X# ' X-SC AL E ' 

1  33X#1PD15.4#5X#'Y-SCALE'/33X#1PC15.4#5X#'THICKNESS  FACTOR'/ 

2  33X#1 PD1 5.4#5X, 'PORCS  ITY  FACTOR') 

if  ungoal,  eq.-m  )  write(6#47G)  (i#x<d#y(i)#thick(i)#por(i)#i=i# 

4  7  C  F0RMAT(lHl//11X#'N  ODE  INFORMATIO  N'//13X# 

1  'N0DE'#7X#'X'#16X#'Y'#17X#'THICKNcSS'#6X,'PCR0SITY'// 

2  (11X#I6#3<3X#1?D14.5)#6X#CPF£.5)) 

C 

C . INPUT  DATASETS  15A  AND  153:  ELEMENTWISE  DATA 

READ (5, 490)  PMAXFA/PKINFA#ANGFAC#ALMAXF,ALMINF#ATAVGF 
490  FORMATO  0X/6G1  C.C) 

IFUELMNT.EQ.  +  1)  WRITE(6#500) 

5  OC  F0RMAT(1h1//11 X#'E  LEMENT  INFORMATIO  N'// 

1  1 1 X#' ELEMENT '#4X#' MAXI  MUM' #9 X#' MINIMUM'# 1 2X# 

2  'ANGLE  BETWEEN'#3X#  '  M A  X IMUM ' # 5 X # '  -M I N I  MUM ' / 5 X # 

3  "  AVERAGE  '/22X#'PERMEABILITY'#4X# 'PE RMEA3ILITY'#4X# 

4  '♦X-OIRcCTION  ANO ' # 3 X # ' L ONG I  TUG  I N AL  '  # 3X # ' LONG  I TUDI N AL ' 3X # 

5  '*  TRANSVERSE '/5CX# 'MAXIMUM  P E R M E A  3 1 L I T Y ' # 3X# ' D I S PE R S I  V I T Y ' # 

6  3X#*0I5PERSIVITY'#3X#'0ISPEPSIVITY'/53X#'(IN  DEGREES)'//) 

DO  550  LL=1#NE 

REAO(5#51C)  L#PMAX#?MIN#ANGLcX#ALMAXlL)#ALMIN(L)#ATAVG(L) 

510  F0RMAT(I10#6G10.0) 

PMAX*PMAX*PMAXfA 


C241C. 

C242C. 

C243C. 

C244C. 

C245C. 

C246C. 

C247C. 

C243C. 

C249C. 

C250C. 

C251C. 

C252C. 

C253C. 

C254C. 

C255C. 

#  C  2  5  60  . 

C  2  5  7  C  . 
C253C. 
'/  C  2  5  90 . 
C2&0C. 
C261C. 
C  2 6 2C  . 
C263C. 
C264C. 
C265C. 
C266C. 
C267C. 
C263C. 
C269G. 

C  2700 . 

C  2  7 1  0 . 
C272C. 
C273C. 
C274C. 
C275C. 

C  2  76 0  . 
C277C. 

/  C273C. 

C279C. 
C2S0C. 
NN)C2S1C. 
C2S2C. 

C  2  53C. 

C234C. 

C285C. 

C2S6C. 

C237C. 

C283C. , 

C239C. 

C290C. 

C291C. 

C  2  9  2  0  . 
C2930. 
C294C. 
C295C. 
C  2  96  C  . 
C297C. 
C  2° : C  . 
C299C. 
C300C. 


322 


subroutine 


I  N  0  A  T  1 


SUTRA  -  VERSION  1264-20  CIO 


PMIN=PMIN*PMINFA  C3010 

ANGL6X=ANGLEX*ANGFAC  C302C 

ALMAX (L) =ALMAX (L) «ALMAXF  C3030 

ALMIN<L)=ALMIN(L)*ALMINF  C304C 

ATAVG(L)=ATAVG(L) *ATAVGF  C305C 

IF(KELMNT.EQ.+1 )  WRITE(6/520)  L/ PMAX/ PMIN/ ANGLEX/  C3CSC 

1  ALMAX(L)/ALMIN(L)/ATAVG(L)  C307C 

520  F0RMAT(1lX,I7/2X,2<1PD14.5/2X),eX/4<0PF10. 3/5X5)  C3060 

C  C3C9C 

C . ROTATE  PERMEABILITY  FROM  M AX IMUM/ M I N I  MUM  TC  X/Y  DIRECTIONS  C313C 

RADI AX=1 .7453290-2«ANGLEX  C311C 

SINA=OSIN(RAOIAX)  C312C 

COSA=OCOS(RAOI AX)  C313C 

SINA2=SINA*SINA  C314C 

CCSA2=C0SA«C0SA  C315C 

PERMXX(L)=PMAX*COSA2+PMIN«SINA2  C316C 

PSRMYY(L)=PMAX*SINA2+PMIN*C0SA2  C317C 

PERMXY(L)=(RMAX-PMlN)*SINA*COSA  C318C 

PERMYX(L)=PERMXY(L)  C3190 

PANGLE(L)=RAOIAX  C32CC 

550  CONTINUE  C321C 

IF(KELMNT.EQ.O)  C322C 

1  WRITE (6/569)  PMAXFA/PMINFA, ANGFAC/ ALMAXF/ ALMINF/ ATAVGF  C323C 

569  F0RMAT(////11X/'E  LEMENT  I  N  F  tf  H  A  T  I  0  N'//  C3240. 


1  1 6X/'PRINT0UT  OF  ELEMENT  P E RM E AB I L I T I E S  AND  D I SP E R S I V I T I E S  */  C325C. 

2  'CANCELLED. ' / / 1 6 X/ ' S C AL E  FACTORS  :  ' / 3 3 X / 1 P 0 1 5 . 4/ 5 X / ' MAX  I  MUM  '/  C326G. 

1  'PERMEA3ILITY  F A C T 0 R ' / 3 3 X / 1 P 0 1 5 . 4 / 5 X / ' M I N I  ML M  PERMEA5ILITY  '/  C327C 

2  *FACT0R'/33X/1P015.4/5X/'ANGLE  FROM  *X  TO  MAXIMUM  DIRECTION'/  C325C 

3  '  FACTOR'/33X/1PD15.4/5X/'MAXIMUM  LONGITUDINAL  0 1 S P E R S I V I T Y  '  /  C329C 

4  '  FACT0R'/33X/1P015.4/5X/'MINIMUM  LONGITUDINAL  D I S P E RS I VI T Y  '  /  C330C 


5  '  FACTOR'/33X,1PD15.4/5X/'TRANSVERSE  DISPERSIVITY  FACTOR')  C331C 

C  C  3320 

C . ENO  SIMULATION  FOR  CORRECTIONS  TO  UNIT-5  OATA  IF  NECESSARY  C333C 

IF(INSTOP.EQ.O)  GOTO  1000  C3340 

WRITE  C6/999)  C3350 

999  F0RMAT(////////11Xz'PLEASE  CORRECT  INPUT  OATA  AND  RERUN.'/  C336C 

1  ///22X/'S  IMULATION  HALTE  D'/  C337C 

2  /22X/ ' *******************  **•*****».*' )  C33SC 

ENDFILEC6)  C339C 

STOP  C  3  400 

C341C 

C342C 

1000  RETURN  C  3430 

ENO  C  3  A 4C 


o  o 


SjBROjTINE 


plot 


sjtr  a 


VERSION  1234-20  010 


Su3R  OUT  I N£ 


plot 


Sutra  -  version  1284-20 


-*  PURPOSE  : 

■*  TO  READ  PLOT  SET-UP  DATA/  ANO  TO  PLOT  THE  FINITE  ELEMENT 
r*  MESH/  THE  PRESSURE  SOLUTION  ANO/DR  THE  CONCENTRATION  OR 
TEMPERATURE  SOLUTION  ON  THE  PRINTED  QUTPuT  PAGE. 

SU9R  OUT INE  plot  (ICALL,NP,X,Y,CC, INDEX, XX, YY/CVEC) 

IMPLICIT  00U3LE  PRECISION  (A-H/0-2) 

COMMON/KPRINT/  KN3DAL,KELMNT,<INCID,X?L0TP,KPL0TU,KVEL,K9UDG 
COMMON  /CO  NT  RL/  GNJ,UP,DTMJLT,0TMAX,ME,ISSFL0,ISSTRA,ITCYC, 

1  NPCYC/NUCYC/NPRINT , I R  E  AO , I STORE/NOUMAT , IUNSAT 

COMMON/ DIMS/  NN , NE , Nl N, NB I / N  3 , N  BH  AL  F , N  P I NC  H , NP  9C / NU  B  C / 

1  NS0P/NS0U/N3CN 

CHARACTER*!  pRNT(122)/SYM(17),3LANK(6G) 

OOUBLE  PRECISION  N X ( 500 ) , N Y ( 1 4 ) 

CHARACTER*^  0IGIT(82),VF1(6),VF2(6),VF3(7) 

DIMENSION  K(10),N<10) 

CHARACTER*30  TITLEO/4) 

DIMENSION  X(NN),Y(NN),CC(NN),XX<NN),YY(NN),INDEX(NN),CVEC(NN> 

OATA  SYM/'1','2','3','4','5','6','7','8','9','0','  Y 

1  'C', PRNT/122*'  '//BLANK/ 60*'  */,NDS/1/ 

OATA  OIGIT/'1','2',*3','4','5','6','7','8','9','10','11','12','13 
1/'14','15',*16'/'17'/'18'/'19','2Q'/'21'/'22'/'23'/'24'/'25','26' 
2/'27','28'/'29‘,'30'/'31'/'32'/'33'/'34','35'/'36','37','38'/'39' 
2 '40*/  *41 ',*32*/ '83'/ '84'/ *85'/ *86*/ *87'/ '88'/ '89'/ '90'/ *91  * 

1 '92 ','93 ','94', '95 ','96 ','9? ','98 ','99', '100', '101 ','102 ','103', 
2104', '105', '106', '107', '108', '109', '110', '111', '112', '113', '114', 
3115', '116', '117', '118', '119', '120', '121', '122'/ 

DATA  TITLE/'  *  *  *  *  N006S  *  *  *  *  ', 

1  '  *  *  *  PRESS JRE/PBASE  *  *  *  ', 

2  '  *  *  CONCENTRATION/C3ASE  *  *', 

3  '  *  *  TEMPERATURc/TBASc  *  *  '/ 

OATA  VF1/'(1H  '/'A1/F','10.2'/')'/ 

OATA  VF2/'C1H  *,'A1,1  ' , ' X , A  8 ' , ' ) ' / 

OATA  VF3/'(HJ',',','  ','A1,F','3.0,','12F1','0.2)'/ 


IF(ICALL)  1100,1100,1 

; . RE  AO  PLOT  setup  DATA  (OATASET  16) 

1100  R  E AO ( 5 ,  1  200)  I  0  I R EC , NL INPI , NCH AP I ,NCH APL 
1200  FQRMAT(4I5) 

PlT* 10  =  COBLE (NCHAPL)-I 3.0 DO )/OBLECNC MAPI) 
N1  =NLINPI 
N2  =  iNCHAPI 
N3=NCHAPL 

XN1=1. 00/(2. 00*n1) 

N  X  S  =  1 
NYS  =  1 

NINY  =PLTWIO 
K ( 1 ) =NN 


IF(KPlOTP.NE.I)  GOTO  1400 
REAU<5,1300)  P9ASE 
1300  C0RMAT(01 3.0) 

1400  IF(KPLOTU.NE.I)  GOTO  1500 
R£A0(5,1 300)  U3ASE 
1500  CONTINUE 

WRITE (6, 1520)  lOIREC/NLINPI/NCHAPI/NCHAPL 
1520  =0RMAT(////11X,'P  LOT  INFORMATIO  N'// 


DIO.  . 
020. . 
D30.  . 
040.  . 
0  5  0.. 
060.  . 
070.  . 
080.  . 
D90 . . 
D130. 
D1  10. 
D120. 
01  30. 
0140. 
D1  50. 
0160. 
0170. 
0180. 
0190. 
0200. 
0210. 
0220. 
'0230. 

0240. 
,0250. 
, D2  60 . 
'0270. 
'0230. 
D290. 
D300 . 
0310. 
0320. 
0330. 
0340. 
0350. 
0360. 
0370. 
0380. 
0390. 
0400. 
0410. 
0420. 
0430. 
0440. 
0450. 
0460. 
0470. 
04  30. 
D490. 
0500. 
0510. 
0520. 
0530. 
D540. 
0550. 
0560. 
0570. 
D530. 
0590. 
0600. 


324 


subroutine 


p 


0  T 


Sutra 


VERSION  1  2  84-2 D  010 


1  13X,'PL0T  ORIENTATION'/  0610. 

2  I15,5X,'10IREC....=-1  SMALL  PLOT  ACROSS  PAPER,  =  ♦  1  0620. 

3  'LARGE  PLOT  ALONG  P A P £ R ' / / 1 3x , ' L I N E  PRINTER  CHARACTERISTICS'/  0630. 

4  1 1 X, 1 1 5, 5X, ' NUMBER  OF  OUTPjT  0640. 

5  'LINES  PER  INCl'/llX, 115, 5x, 'NUMBER  0  <=  OUTPUT  CHARACTERS',  D650. 

6  '  PER  INCH'/llX, 115, 5X, 'MAXIMUM  NUMBER  OF  OUTPUT  ',  Do6Q. 

7  'CHARACTERS  PER  LINE')  D670. 

IFU=>L0TP.NE.1)  GOTO  1  540  DbBO. 

WRITE! 6, 1530)  PBASE  0690. 

1  530  FORMAT (//I 3X, 'PRESSURE  PLOT  0 AT  A ' / 1 1 X , 1 P01 5 . 4 , 5 X  ,  D700. 

1  'PBASE. ...PLOTTED  PRESSURE  VALUE  IS  P R E S SU R E/ P 3 A S E '  )  0710. 

1540  IF (KPLOTU.NE. 1 )  GOTO  1580  0720. 

IF(ME)  1550,1550,1 5o0  D730. 

1550  WRITE(6,1555)  UBASE  0740. 

1  555  =0RMAT!//13X, 'CONCENTRATION  PLOT  0  A T A ' / 1 1 X  ,  1 P 0 1 5 . 4, 5 X ,  D750. 

1  ' UBASE ....  PLOTTED  CONCENTRATION  VALUE  IS  C ONC E NT R A T I  ON / UB A S E ' )  0760. 

GOTO  1580  0770. 

1560  WRIT£(6,1565)  UBASE  D780. 

1  565  FORMAT (/ /I 3X, 'TEMPERATURE  PLOT  0  A T A ' / 1 1 X , 1 P D 1  5 . 4 , 5 X ,  0790. 

1  'UBASE. ...PLOTTED  TEMPERATURE  VALUE  IS  TEMPERATURE/UBASE ' )  D800. 

1580  WRITE (6, 1 590)  D810. 

1590  FORMAT ( / / 3 1 X,'THE  THREE  DIGITS  PLOTTEO  ARE  THE  ONE  TO  THE  LEFT,',  D820. 
1  /SIX, 'AND  THE  TWO  TO  THE  RIGHT  OF  THE  DECIMAL  POINT')  0830. 

0840. 

. SET  LONGER  PLOT  AXIS  DOWN  (I0IREC=  +  1  )  0350. 

OR  ACROSS  PAPER  <I0IREC=-1)  D360. 

SMALLX=0.00  0870. 

SMALLT=0.00  D880. 

BIGX=O.DO  0390. 

BIGT=O.DO  0900. 

DO  1  600  1  =  1, NN  CMO. 

IF(X(I).GT.BIGX)  3IGX=X(I)  D920. 

IF(X (I) .LT. SMALLX)  SMALLX=X(I)  0930. 

IF(Y(I).GT.BIGY)  3IGY=Y(I)  0940. 

1600  IF! Y ( I ) .LT. SMALLY)  SMALLY=Y!I)  D950. 

X RAN3E=BIGX-SMALLX  0960. 

Y RANGE =BIGY-SM ALLY  0970. 

TENT  HX  =  XRANGE/10.000  0980. 

TENTHY=YRANGE/10.0DO  D99Q . 

ifurange.ge.  yrange.and.  ioirec.ne.-i  )  KKKXK  =  +  1  01000 

IF ! X R ANGE .GE . YRANGE . ANO . I DIREC . EQ.-1 >  KKKXK=-1  D1310 

IFIXRANGE. LT. YRANGE.AND. IOIREC.NE.-I )  KKKKK=-1  01020 

IFIXRANGE.LT.  YRANGE.  ANO.  IOIREC.cO.-1)  K  K.  K  K,  K  =  ♦  1  01030 

IFUXXKK.E3.-1)  GOTO  344  01040 

XMIN=SMALLX-T£NTHX  01050 

XMAX=3IGX+TENTHX  01060 

YMIN=SMALLY-TENTHY  01370 

YMAx  =3IGY*TENTHY  D1080 

GOTO  345  01090 

344  XMIf.  =  SMALLY“TENTHY  01100 

XMAx=8I6Y+T£NTMY  01110 

YMIN=SMALLX-TENTHX  01120 

YM A  x =3  I Gx ♦T ENTHX  D 1 1 30 

345  CONT INUE  01140 

xRANGE  =  xRANGE*1  .  2000  01150 

YRANGE=YRANGE»1 . 2000  01160 

IFUkkkk.EQ.M)  nInx  =  !n:ny/yRANGE)*xRangE  +  0.500u  01170 

IFUKxKK.E3.-1)  NINX=!NINY/XRANGE)*YR4NGE+0.5000  01180 

01190 

INITIALIZE  PLOT  COORDINATES _ ROTATE  i  F  REQUIRED  !  W  n  E  N  k  X  K  X  K = - 1 )  01200 


SUBROUTINE 


C  0  N  N  E  C 


SUTRA  -  VERSION  1284-20  H10 


IFUINCID.EO.O)  GOTO  1000 
WRITE<6,650)  L , (  I  N ( M ) / M  =  M 1 , M 4 ) 

650  FDRMATdlX, 'ELEMENT', 16, 5X,'  NODES  AT  :  '  ,  6  X  ,  '  C  0  R  NE  R  S 

1  5 (1 H») ,416,1 X, 5  <1 H«  )  ) 

IF(LL.LT.O)  WRITE  <6, 700) ( I E  DOE (M),M  =  1,4) 

700  <=0RMATC1  IX,  'EDGES',  416) 

1000  CONTINUE 

IF(IPIN.EJ.O)  GOTO  5000 
IF<IPIN.EU.NPINCH-1 )  SOTO  1500 
WRITE(6,1450)  IPIN,NPINCH 

1  450  pORMAT  (///// n 1 X, ' ACT JAL  NUM3ER  OF  PlNCn  NODES, ',14, 

1  ',  DIFFERS  FROM  NUMBER  ALLOWED  AS  SPECIFIED  IN  INPUT,  ',14// 

2  1 1 X  ,  'PLEASE  CORRECT  INPUT  DATA  AND/OR  DIMENSIONS  AND  RSRuN.' 

3  ////////22X,'S  IMULATION  HALTE  D'/ 

4  2  2  X  ,  ' . ') 

STOP 

1500  CONTINUE 

IF(KINCID.EQ.O)  GOTO  5000 
WRITE (6,3000) 

3000  FORMAT (////// 1 1 X, ' ***•  PINCH  NODE  CONNECTIONS  ****'//7X, 

1  'PINCH  NODE ', 1 7X, 'CONNEC TED  NOOES'///> 

00  <.000  I  =  1,IPIN 

4300  WRITE(6,45  00)  <  I  p  I  NC H ( I , NP ) , NP  =  1 , 3 ) 

4500  FORMAT (1 IX, 16,1  OX, 216) 


5000  RETURN 


SjORDjTIN:: 


J 


SuNH 


v  c  ■?  i  I  j  N  1  2  8  4  -  2  0  h  1  : 


c 

SUBROUTINE  C  0  N  N  E  c 

Sutra  -  V 

ER3I0N  1234-2C 

Hi  0 . 

■ 

H  2  0 . 

“ 

...  PjRPOSE  : 

H  30 . 

•  «*  TO  READ  ,  D  R  0  A  N  I  Li,  AND  CHECK  DATA  ON 

NODE  INCIDENC 

E  S  AND 

H  4  0 . 

•  »*  p  i  n  c  h  node  incidences. 

H  5  0 . 

c 

HoQ . 

5  U  3  R  0  u  T INE  CONNEC (  IN/ I  PINCH) 

H  70 . 

IMPLICIT  D  Ou  3  l  E  PRECISION  (A-H/O-Z) 

H80 . 

COMMON /DINS/  NN,N£,NlN,NSI,N3,NBHALr, 

NPINCH/ 

NP3C/NU3C, 

H90 . 

1  NSUP/NSCJ/N3CN 

HI  00.  .  .  . 

COMMON /K PRINT/  KNDDAL,KELMNT,KINCIO,XPLOTP,KPlOTU,KVEL,KSUOG 

Hi  1 0.  .  .  . 

DIMENSION  IN( NIN) , IPINCH (NPINCH, 3) 

h  1  2  0 ... . 

DIMENSION  IIN(4)/IE0GE(4),IK(3) 

Hi  30. . . . 

DATA  IK/1^2/2/3/3/4/4/1 / 

HI  40. . . . 

r 

HI  50. . . . 

I  STQP=0 

HI  60. . . . 

I  P  I  N  =  0 

HI  70. .  .  . 

IFUINCID.SQ.O)  WRITE (6 /I) 

HI  80 ...  . 

1  CDRMAT < 1  Hi // / / 1 1 X, 'M  E  S  H  CONN 

E  C  T  I 

0  N 

DAT  A'// 

Hi  90. .  . . 

1  1 6X, ' PR  INTOUT  OF  NODAL  INCIDENCES 

AND  PINCH  NODE 

/ 

H 2  00 ...  . 

2  'CONNECTIONS  CANCELLED.') 

H21 0. . . . 

IFCKINCIO.EO.+1 )  wRITE(6,2) 

H220. . . . 

2  =  ORM AT ( 1H1 // / / 1 1 X/ 'M  E  S  H  CONN 

E  C  T  I 

0  N 

DAT  A'/ 

H230.  .  .  . 

1  ///II X/'****  NOOAL  INCIDENCES  **»► 

'  //  /  ) 

H240. . . . 

c 

H2 50 . .  • . 

z 

....INPUT  DATASET  22  AND  CHECK  FOR  ERRORS 

H260. . . . 

00  1 300  L  =  1  /  N  E 

H270. . . . 

DO  4  1=1/4 

H280. . . . 

4  IEDGE(I)=0 

H290. . . . 

REA0(5/10)  LL/(IlN(II)/II=1/4) 

H300. . . . 

10  FORMAT (516) 

H31 0. . . . 

r- 

IN. 

H320.  . .  . 

00  5  11=1/4 

H330. . . . 

II  I  =  IIML-1)  *4 

H340. . . . 

5  I  N  (  1 1 1 )  =  1 1 N  (  1 1 ) 

H350. . . . 

IF(IABSCLL).EO.L)  goto  25 

H360.  . . . 

WRITEC6/20)  LL 

H370. . . . 

20  =ORM AT ( 1 1 X, ' ELEME NT  ' / I 6 / ' I N C I 0 E NC E  DATA  IS 

NOT  IN 

NUMERICAL'/ 

H  38  0 . . . . 

1  '  ORDER  IN  THE  OATA  SET') 

H390. . . . 

IST0P=IST0P*1 

H400. .  .  . 

25  IF(LL.GE.O)  GOTO  500 

H41 0.  .  .  . 

z 

H420.  .  .  . 

REAO(5/30)  (  I  E D G E ( I ) / I  =  1 / 4 ) 

M430. .  .  . 

30  =0RMAT<4l6) 

H440 .  .  .  . 

_ PREPARE  PINCH  NODE  INCIDENCE  LIST  FOR 

MESH/ 

IPINCH. 

H4  50 ... • 

00  200  K  =  1 / 4 

M460. . .  . 

I  =  IEOl»E<k) 

H470. . . . 

I  F ( I )  200/200/1  00 

H430. . . . 

10  0  I  P I N  =  I p I N ♦ 1 

H  4  9  0  .  .  .  . 

IPINCH(IPIN/1)=I 

H500.  . .  . 

K  K  1  =  2  *  K  ~  1 

H510.  . . . 

K \ 2- <K 1 ♦ 1 

H520. . . . 

<  KK  1  =  IK  (  KK.  1  ) 

H530  . . . . 

k\X2=Ikckk2) 

H  5  4  0  ... . 

I  pInChC  IPIN, 2) =  IInCkKKI ) 

H550  . . . . 

IpInCh ( I  pin, 3) =1 1 n  CkkkZ) 

H560. . . . 

too  Continue 

H  5  7Q  ...  . 

■“ 

h  5  8  0  ... . 

500  M1=(L-1)*4*1 

h  5  90  ... . 

M  **  =  M*1  ♦  3 

H600. . . . 

SU8R OJT INE 


0  3  S  E  R  V 


SUTRA  -  VERSION  1284-20  G10 


WRITE<6*300)  (I08S(JJ)/JJ=1,N0BS> 

300  FORMAT  ((11X*16(3X*I6))) 

IF! JSTOP.EQ.O)  GOTO  430 

C . END  SIMULATION  IF  CORRECTIONS  ARE  NECESSARY  IN  DATASET  21 

WRIT£!6*350)  IOB/NOBS 

350  F0RMAT(////11X/'ACTuAi.  NUMBER  OF  OBSERVATION  NODES'* 

1  *  READ*  '*15/'*  IS  NOT  EQUAL  TO  NUMBER  SPECIFIED  IN'* 

2  '  INPUT*  '*I5////11X*'PLEASE  CORRECT  DATA  AND  RERUN.'* 

3  ////////22X*'S  IMULATION  HALTE  D'/ 

4  22x*  ' _ ') 

STOP 

400  RETURN 
C 

C . MAKE  OBSERVATIONS  EACM  NOBCYC  TIME  STEPS 

500  CONTINUE 

IF!MDO!IT*N03CYC>.NE.3.ANO.IT.GT.1.ANO.ISTOP.EQ.O)  RETURN 

IF(IT.EQ.O)  RETJRN 

ITCNT=ITCNT*1 

IT0BS(ITCNT)=IT 

38  S  T I M ! ITCNT)=T  SEC 

DO  1300  JJ=1*N06S 

I=I03S(JJ) 

P03S (JJ*ITCNT)=PVEC(I) 

U08S (UJ/ITCNT) =UVEC (I) 

1000  CONTINUE 
RETURN 

C 

C . OUTPUT  OBSERVATIONS 

5330  CONTINUE 

mn  =  2 

IFIME.EQ.-1)  MN  =  1 
J  J2  =  3 

ML00P=(N0BS+3)/4 
DO  7300  L  OOP  =  1 *ML30P 
JJl =JJ2+1 
JJ2= JJ2*4 

IF(lOOP.EO.MLOOP)  JJ2=N0BS 

WRITE (6*5999)  (I03S(JJ)*JJ=JJ1*JJ2) 

5999  FORMAT (1M1///5X*'0  BSERVATION  '* 

1  'NODE  OAT  A'///23x*4(:8x*'N0DE  '*15, 8x )  > 

WRITE!6*633Q>  (UN3ERS*Jj=JJ1 *JJ2) 

6300  format!  2iX,4(:3X*  A10  *  8X)) 

WRITE (6* 6031)  (UNAM£(MN)*UJ=JJ1*Jj2) 

6  3u  1  c0RMAT(/1x,'TIME  STEP'*4X,'TIME(SEC)'*4(:2X*'PRESSURE'*3X,A13)) 
DO  6500  ITT=1*ITCNT 

WRITE(6*6103)  IT03S(ITT)*0BSTIM(ITT), 

1  (PJ0S(JJ*ITT)*UOBS(JJ*ITT)*JJ=JJ1,JJ2> 

&10Q  =0RMAT<5X*I5*1X,1P012.5*8C1x*1PD12.5)) 

6500  CONTINUE 
7330  CONTINUE 
RETjRn 


END 


G61  0. 
&620. 
G630. 
G640. 
6650. 
G  6  6  0 . 
G670. 
G  6  8  0 . 
G690. 
G  700 . 
G71  0. 
G720. 
G730. 
G740 . 
G750. 
G760 . 
G770. 
G780. 
G790. 
G800. 
G810. 
G820. 
G830. 
G840. 
G850. 
G860. 
G870. 
G880. 
G890. 
G900. 
G91  0. 
G920. 
G930. 
G940. 
G950. 
G960 . 
G970. 
G980 . 
G99Q. 
G1000 
G 1  3  1  0 
G1  020 
G1  030 
G 1  040 
G 1  350 
G1  060 
G1  070 
G1  380 
G1  390 
G 1  100 
G1  1  1  0 
G1  1  23 
G  1  1  30 
G  1  140 


o  o 


3  J  3  R  0  U  T 1 N E 


0  3  S  c  R  < 


}  u  (  R  A  -  v  t  R  S  I  u  N  1  2  3  %  -  2  0  G  1  0  , 


Su3RDjTINE 


0  3  S  E  R  V 


Sutra  -  version  1234 


c  purpose  : 

C  *«*  (1)  TO  READ  ANO  ORGANIZE  OBSERVATION  NODE  DATA 
C  ***  (2)  TO  MAKE  OBSERVATIONS  ON  PARTICULAR  TIME  STEPS 
C  ***  (3)  TO  OUTPUT  OBSERVATIONS  AFTER  COMPLETION  OF  SIMULATION 

C 

subroutine  033ERv(ICAi_L/IQ3S/IT03S/PDbS/J03S/09stim/Pvec/UVeC/ 
1  ISTOP) 

IMPLICIT  D0u3lE  PRECISION  (A-1/0-Z) 

Characters 3  uname(2) 

Char  ALTERS  Q  JNOERS 

COMMON /DIMS/  NN/NE/NI.N/N3I/N8/NBHALF/NPINCH/NPBC/NU8C/ 

1  NS0P/NS0U/N3CN 

COMMON/CONTRL/  GNJ/UP/DTMjLT/DTMAX/ME/ISSFLO/ISSTRA/ITCYC/ 

1  NPCYC/NUCrC/NPRlNT/IREAO/ISTORE/NOuMAT/lUNSAT 
COMMON  /TIME/  DELT/TSEC/TMIN/ThOUR/TOAY/TWEEK/TMONTH/TYEAR/ 

1  TMAX/OELTP/DELTU/OLTPM1/OLTUM1/IT/ITMAX 
COMMON/OBS/  N03SN/NT03SN/N0BCYC/ITCNT 
DIMENSION  IN03C16) 

DIMENSION  I09S(N03SN)/P0BS{N03SN/NT0BSN)/U0BS(N08SN/NT0aSN)/ 

1  O3STIM(NTD3SN)/IT03S(NTOBSN)/PVEC(NN)/UVEC(NN) 

DATA  UNAME(1)/*CONCENTRATION*//UNAME(2>/*  TEMPERATURE*// 

1  UNDERS/' _ _ *// 

1  I TCNT /GOOD/ 

/* 

L* 

C . NOBS  IS  ACTUAL  NUMBER  OF  OBSERVATION  NODES 

C . NTOBS  IS  MAXIMUM  NUMBER  OF  TIME  STEPS  WITH  OBSERVATIONS 

NOBS=NOBSNS 
NTOBS=NTOBSN-2 
IF(ICALL-I)  50/500/5000 


....INITIALIZATION  CALL 
.....INPUT  DATASET  21 
50  CONTINUE 
JSTOP=0 
WRITEI6/60) 

60  F0RMAT(////11X/*0  BSERVATION  NODE  S') 

REAQ(5/65)  NOBCTC 
o5  FORMATCI10) 

WRITEC6/70)  nobcy; 

70  =0RMAT(//11X/'****  NODES  AT  WHICH  OBSERVATIONS  MILL  BE  MADE'/ 

1  *  EVERY*/I5/*  TIME  STEPS  ****'//> 

NT03SP=ITMAX/N0BCYC 

IFCNTOBSP.GT. NTOBS)  WRITE (6/ 80)  NTOBS /NTOBSP/ITMAX 
30  fjrmaT(//11X/*“  4  A  R  N  I  N  G  -  * / 1 1 X / 

1  'NUMBER  OF  OBSERVATION  STEPS  SPECIFIED  */I5/ 

2  */  IS  LESS  THAN  THE  NUM8ER  POSSIBLE  */I5/*/'/ 

3  1 IX/'WITHIN  THE  MAXIMUM  NUMBER  OF  ALLOmED  TIME  STEPS/  */I5/ 

4  IIX/'PuEASE  RECONFIRM  THAT  OBSERVATION  COUNTS  ARE  CORRECT.* 
100  READ ( 5/ 1 50)  IN08 

1 50  format (1 615) 

103  =  3 

30  200  J J  =  1 /I  6 
IF(INOBCJJ).EO.O)  GOTO  250 
103  =  1  03  *1 

I  J  3  S  (103) =IN03< J J) 

200  CONTINUE 

IF( ID3.LT.N03S)  GOTO  100 
253  Ir(IDB.NE.N03S>  JST0P=1 


-20  G1 D.  .  . 
G  2  0 .  .  . 
G  30  .  .  . 
G  4  0  •  .  • 
G  5  0  .  . . 
G  6  0  .  .  . 
G70. . . 
G  8  0  •  •  • 
G90 . . . 
G1  00. . 
G1 1 0.  . 
SI  20. . 
G1  30. . 
G1  40. . 
G1 50. . 
G1 60.  . 
G 1  70  •  . 
G1 80.  . 
G 1  90 . . 
G200 . . 
G21 0. . 
G220. . 
G230. . 
G  2  40  .  . 
G250. . 
G260  .  . 
G270.  • 
G230. . 
G290 . . 
G300.  . 
G  3 1  0 .  . 
G320. . 
G330 . . 
G340. . 
G350. . 
G360.  . 
G  3  70  •  . 
G380.  . 
G390. . 
G400 . . 
G410. . 
G420. . 
G430. . 
G440. . 
0450.  . 
G  4  6  0  .  • 
G4  70 . . 
G430. . 
*  .  *  /G490. . 
//)  G500 . . 
G  5  1  0  .  . 
G520.  . 
G530. . 
G  5  4  0  .  . 
G  5  5  0 .  . 
G 5  60  .  . 
G  5  7  0  .  . 
G 5  30  .  . 
G  5  9  0  •  . 
G60O. . 


SUBRDUT INE 


8  3  U  N  0 


SUTRA 


VERSION  1284-20  F10 


C  F1210 

6000  IF( I RdCT .EQ.-1 .OR. IUBCT .E 3.-1 )  4 R I T E ( 6 / 7 000 )  F1220 

7000  F3RM4T(////11X,*TriE  SPECIFIED  TIME  VARIATIONS  ARE  ' /•  F1230 

1  * JSER-PRQSRAMMED  IV  SUBROUTINE  B  C  T  I  M  E  F 1 2 4 0 

C  F1250 

:  F 1 260 

RETURN  F 1 2  70 

ENO  F 1 280 


o  o 


SuBWDjTINE 


3  0  J  N  0 


SoTRA 


VcRSION  1 284*20  F  1  3 


216  =0RMAT(//I1x, 'TIME-DEPENDENT  SPECIFIED  P  R  E  S  SU  R  E  '  /  1  2  X  ,  '  OR  INFLOW 
1  'TEMPERATJRE  IN0ICAT£D'/12X,'BY  NEGATIVE  NODE  NUMBER') 

4  JO  IrCNJBC. E  Q  .  0  )  G0T3  20J0 

I F ( ME )  500,530,553 
500  WRITEC6/10QQ) 

1  000  form  AT C / // /I  1 X , ' ****  NODES  AT  WHICH  SOLUTE  CONCENTRATIONS  ARE 

1  'SPECIFIED  TO  BE  INDEPENDENT  OF  LOCAL  FLOWS  AND  FLUID  SOURCES 

2  '  ****'✓/ 1 2X, ' NODE' /I 3X, 'CONCENTRATION' // ) 

SOTO  1120 

550  WR IT  E (6,1 001 ) 

1001  FDRMATC////11X,'****  NOOES  AT  WHICH  TEMPERATURES  ARE  '/ 

1  'SPECIFIED  TO  3 E  INDEPENDENT  Or  LOCAL  FLOWS  ANO  FLUID  SOURCES 

2  '  ****'// 1 2X/ 'NODE' /I  5X/' TEMPERATURE'//) 

. INPUT  DATASET  20 

1120  IPU=IPU+1 

REAOC5/150)  IJBC(IPU)/UBC(IPU) 

IFCIJBCCIPU) .LT.O)  IU3CT=“1 
IF(IUBCCIPU).EQ.O)  GOTO  1180 

I F ( I JBC(IPU).GT.O)  WRITEC6/1150)  IUBC ( IPU) /UBC ( IPU) 

IFCIJBCCIPU). LT.O)  WRITEC6/1 1 50)  IUBCCIPU) 

1150  FormAT(11X/I5/6x,1PD20.13) 

GOTO  1120 
1180  IPU=IPU-1 

iu=ipu-ip 

IFCI J.EQ.NUBC)  GOTO  1200 
ISTOPU=1 

1200  IFCIJBCT.NE.-1 )  GOTO  2000 
IFCME)  1205,1205/1215 
1205  WRITEC6/1206) 

1  206  CJRMAT(//12X/'TIME-0EPENDENT  SPECIFIED  CONCCNTRATION'/I 2X,  '  IS  '/ 
1  'INDICATED  BY  NEGATIVE  NODE  NUMBER') 

GOTO  2000 

1215  WRITEC6/1216) 

1216  FORMAT  C//1 IX/'TIME-OEPENOENT  SPECIFIED  T £ MP E R A T U R E ' / 1 2 X , ' I S  '/ 

1  ' INOICATEO  BY  NEGATIVE  NODE  NUMBER') 

. END  SIMULATION  IF  There  neeo  BE  CORRECTIONS  TO  DATASET  19  OR  20 

2000  IFCISTOPP.EQ.O. ANO.ISTOPU.EQ.O)  GOTO  6000 
IF (IST0PP.EQ.1 )  WRITEC6/3000)  IP/NPBC 
5000  FORMAT (/// /I IX/'ACTUAl  NUMBER  OF  SPECIFIEO  PRESSURE  NODES'/ 

1  '  READ/  ' / 1 5 / ' /  IS  NOT  EQUAL  TO  NUMBER  SPECIFIED  IN'/ 

2  '  INPUT,  ' , I  5 ) 

IFCME)  3500/3500/4600 

3500  IF ( I STOPU. E J. 1 )  W R I T E (  6 , 4000  )  IU/NUBC 

4000  FORMAT (/// /I  1 X /' ACTUAL  NUMBER  OF  SPECIFIED  CONCENTRATION  NODES'/ 

1  '  R  E  A  0/  ',15/'/  IS  NOT  EQUAL  TO  NUMBER  SPECIFIED  IN', 

2  '  INPUT,  '  ,  I  5  ) 

GOTO  4300 

-600  IFCI STOPU.EQ. 1 )  W R I T E ( 6 , 4 700 )  IU/NUBC 

4  2  JO  F0RMATC////1 IX, 'ACTUAL  NUMBER  OF  SPECIFIED  TEMPERATURE  NODES'/ 

1  '  R  E  A  0 /  ' / 1 5 / ' /  IS  NOT  EQUAL  TO  NUMBER  SPECIFIED  IN', 

2  '  INPUT,  '  ,  I  5 ) 

<.  303  WRITE  (6,5000) 

U  3  00  F0RMATC////11x,'PlSASE  CORRECT  DATA  AND  RERUN.'//////// 

1  2  2  X , ' S  IMJLATION  HALTE  0'/ 

2  2  2  X  ,  ' . ') 

ENO'FILE  (6) 

STOP 


,F610.  . 
F  6  2  0 .  . 
F  6  3  0  .  . 
F  o  4  0  .  . 
F650.  . 
co60.  . 
Fo  70  .  . 
, F6  3 0  •  • 
F690.  . 
F  7  00  .  . 
F71  0.  . 
F  7  20  . . 
,  F  7  3  0 . . 
F  74 0 . . 
F750. . 
e 7  60 . . 
F770. . 
F780 . . 
F790.  . 
F300. . 
F8 1  0 .  . 
F820.  . 
F830. . 
F840. . 
F8  5  0 .  . 
F860. . 
F870.  . 
F880. . 
F890.  . 
F900  .  • 
F910.  . 
F920.  . 
F930.  . 
F  94  0  .  . 
F950. . 
F9 60 .  . 
F970.  . 
F980  .  . 
F990.  . 
F 1 000 . 
F  1  0 1  0  . 
FI  020. 
F 1 0  30 . 
FI  040. 
F 1 050. 
F 1 060 . 
FI  070. 
FI  080 . 
F 1 090 . 
F1100. 
FI  1 10. 
F1 1 20. 
F1 1 30. 
F11 40. 
F  1 1  5  0 . 
FI  1 60. 
FI  1 70. 
FI  180. 
FI  190. 
FI  200. 


SjBkjuTINE 


subroutine 


BOUND 


SUTRA  -  VERSION  1284*20  F10, 


SUTRA  -  VERSION  1234*20 


.INPUT  DATASET  14 
IPU=IPU-M 

READ (5/1 50)  IP3C(IPU)/PBC(IPU)/UBC(IPU) 

FORMAT (I5/2G20.0) 

IF(IpBC(  I  PU) «lT .0)  I PBC T  =  *1 
IF<IaBC(IPU).E3.0)  GOTO  130 

IFCIPBC(IPU).GT.O)  wRITE(6/160>  IPBC< *  a  >  .  =  SC  (  I  PU  )  /  l"*C  (  I  PU  ) 

IF  ( I  PBC  (  IP'J)  .lT.  0)  WRITE(6/160>  IPBC(IrU> 
pqRMAT(11X/I5/6x,1P02D.13/6X/1P02J.13) 

GOTO  120 

IPU=IPU*1 

IP=IaJ 

IF<I».E3.NPa:>  GOTO  200 
I  S  T  0  PP  =  1 

IF(I®dCT.NE.-1)  GOTO  400 
IF(ME)  205/205/215 
WRIT5(6/206) 

=  jPMA  T  (  /  /  1  2x  ,  '  T  ;  ■*  =  -oe  PE  UDE  NT  S^cG^IcD  P  0  2  S  J  j  ->  =  '  >  '  2  >  /  '  OR  INFLOW 
I  'GONvENTRATION  IN  OIC  a;:  '  /  1  2X/  *3y  negative  L  .  j  ■'  3  t  R  *  ) 

j  ^  0  3  u 

WRITS(6/21&) 


c  *»*  PURPOSE  : 

C  ***  TO  READ  AND  ORGANIZE  SPECIFIED  PRESSURE  DATA  AND 
C  ***  SPECIFIED  TEMPERATURE  OR  CONCENTRATION  DATA. 

SUBROUTINE  BDUNDdPBC/PBC/IUBC/UBC/IPBCT/IUBCT) 

IMPLICIT  DOUBLE  PRECISION  (A-H/0*Z) 

COMMON/DIMS/  NN/NE/NIN/.NBI/NB/NBHALF/NPINCH/NPBC/NUSC/ 

1  NS0P/NS0U/N3CN 

COMMON/CONTRL/  GNJ/UP/DTMuLT/DTMAX/ME/ISSFLO/ISSTRA/ITCYC/ 
1  NPCYC/NUCYC/NPRINT / I  R  E  A  D  /  I STORE/ NOUMAT / IUNSAT 
DIMENSION  IP3CCN3CN) /P8C(NBCN) /  I  UBC (NBCN) /UBC (NBCN) 


I PBC  T  =  1 
I UBC  T  =  1 
I ST0PP=0 
I STO  P  U  =  0 
IPU  =  0 

WRITS  (6/50) 

FORMAT C 1  Hi  III /I  1 X, ' B  OUNOARY  CONDITION  S') 

IF(NPBC.EO.O)  GOTO  400 

WRITE(6/100) 

FORMAT(//11X,'****  NODES  AT  WHICH  PRESSURES  ARE*/ 

I  '  SPECIFIED  ****'/) 

IF(ME)  102/107/114 
WR1T:(6/108) 

FORMAT ( 1 1 X / '  (AS  WELL  AS  SOLUTE  CONCENTRATION  OF  ANY' 

I  / 1 6 X ,  '  FLUIO  INFLOW  WHICH  MAY  OCCUR  AT  THE  POINT' 

!  / 1 6  X ,  '  OF  SPECIFIED  PR ES SURE > ' / / 1 2 X / *  NODE  ' / 1 8X/ ' PRE SSURE ' / 

!  1 3X/ 'CONCENTRATION'//) 

GOTO  120 
WRITE(6/1 1 5) 

FORMAT (11X/'  (AS  WELL  AS  TEMPERATURE  CDEGREES  CELCIUSO  OF  ANY' 

/ 1 6 X /  '  FLUID  INFLOW  WHICH  MAY  OCCUR  AT  THE  POINT' 

!  / 1 6X ,  '  OF  SPECIFIED  P R E S S UR E ) ' / / 1 2 X / ' N OD E  ' / 1 8 X / 

!  ' PRESSURE  '  / 1 3X / '  T E M P E R A T JR E ' / / ) 


FI  0.  .  . 
F20.  .  . 
F30.  .  . 
=  40..  . 
F50.  .  . 
F60.  .  . 
F70. . . 
F80. . . 
F  9  0 . .  . 
F100.  . 
FI  10.  . 
FI  20.  . 
FI  30. . 
F  1  40 . . 
FI  50.  . 
FI  60.  . 
FI  70.  . 
FI  80.  . 
FI  90.  . 
F200  .  . 
F21 0.  . 
F220. . 
F230. . 
F 24 0 .  . 
F250. . 
F260. . 
F270.  . 
F2 80 . . 
F290.  . 
F300.  . 
F  3 1  0 .  . 
F  32  0.  . 
F330.  . 
F34Q. . 
F350. . 
F 360. . 
F370. . 
F380. . 
F  390. . 
F  4  0  0  .  . 
F  4 1  0  .  . 
F4  20  .  • 
F  4  3  0  .  . 
F  4  4  0  .  . 
F4  5 0 .  . 
F460.  . 
F  4  70 .  . 
F  4  3  0  .  . 
F  4  90  .  . 
F 500 .  . 
=510.. 
F  5  2  0  .  . 
F  5  3  0  .  . 
=  540.  . 
F  5  5  0  .  . 
=  560  .  . 
p  5  7  0  .  . 
=  5  30  .  . 
=  5  90.  . 
=  600.  . 


S j3R  Ou  T I N  E 


i  J  'J  R  C 


i  -j  T  f?  A 


Vci<  jl  JN  1  d  6  ~  d.  j  ;IJ 


ENOFILE (6) 

STOP 

1760  WRITEC6/1770)  NIQj/NSOUI 

1770  F0RMAT(////11X/*Th£  NUMBER  OF  ENERGT  SOURCE  NODES  REAO/  */I5/ 

1  *  IS  NOT  EQUAL  TO  THE  NUM3E  R  SPECIFIED#  *#15//// 

2  11X/*PlEASE  CORRECT  DATA  ANO  RERUN*//////// 

3  2 2X /'SIMULATION  HALTED*/ 

4  22X/  * . . . . . *) 

ENOF  ILE  (6)  ‘ 

STOP 

1890  IFCI3S0UT.EQ.-1)  « R  I  T E < 6 / 900 ) 

9000  RETURN 
ENO 


El  21 0. . 
El  220. . 
El  230. . 
El  240.  . 
El  250. . 
El  260. . 
E 1  2  70  . . 
El  280. . 
E 1  290 . . 
El  300. . 
El  31 0. . 
El  320. . 
El  330. . 
El  340.  . 
El  350. . 


subroutine 


SOURCE 


SUTRA 


VERSION  1234-20  E 1 0 


460  WRITE(6/500)  I 3C 3 / Q I NC / U I NC 

500  FORMAT (11x, 110, 13X,1Pcl4.7,16X,1P£14. 7) 

600  GOTO  300 

700  IF (NlQP. EO.NSOPI  >  GOTO  890 

....END  SIMULATION  IF  THERE  NEED  BE  CORRECTIONS  TO  DATASET  17 
WRITE (6,750)  NIQP,NS0PI 

750  F0RMAT(////11X,*THE  NJMBER  OF  FLUID  SOURCE  NODES  READ,  *,I5, 

1  *  IS  NOT  EQUAL  TO  THE  NUMBER  SPECIFIED,  ',15//// 

2  1 1 X , 'PLEASE  CORRECT  DATA  AND  RERUN*//////// 

3  2  2x , *  S  IMULATION  HALTE  D*/ 

4  2  2X  ,  * . ') 

ENDFILE(6) 

STOP 

390  IFd3S0PT.E0.-1)  WRITE  (6,900) 

900  FORMAT (////I  1 X,*THE  SPECIFIED  TIME  VARIATIONS  ARE  ', 

1  *  JSER-PROGRAMMED  IN  SUBROUTINE  B  C  T  I  M  E  .*) 


1000  IF(NSOUI.EO.O)  GOTO  9000 
IF(ME)  1050,1050,1150 

1050  WRITE (6, 1 1 00) 

1100  FORMAT!/ ///////11X,*S  OLUTE  SOURCE  DATA* 

1  ////I  IX,*****  NODES  AT  WHICH  SOURCES  OR  SINKS  OF  SOLUTE  *, 

2  'MASS  ARE  SPECIFIED  ****'// 1 1 X ,* NOD E  NUMBER*, 10X, 

3  'SOLUTE  SOURCE (♦) /SINK (-) * /I  1 X, * (MINUS  INDI C A T E S ' , 5 X, 

4  '(SOLUTE  MASS/SECONO)'/12X,*TIME-VARVING'/12X, 

5  'SOURCE  OR  SINK)'//) 

GOTO  1300 

1150  WRITE(6,120Q) 

1200  F0RMAT(////////11X,'E  N  E  R  G  T  SOURCE  DATA' 

1  ////11X,'****  NOOES  AT  WHICH  SOURCES  OR  SINKS  OF  *, 

2  'ENERGY  ARE  SPECIFIED  ***** //I  1 X, 'NODE  NUMBER', 10X, 

3  'ENERGY  S0URCE(*)/SINK(-)*/11X, '(MINUS  INDICATES' , 5X, 

4  *(ENERGY/SECONO)'/12X,'TIME-VARYING'/12X, 

5  'SOURCE  OR  SINK)'//) 

. INPUT  DATASET  18 

1300  CONTINUE 

REA0(5,400)  I3CU,3UINC 
IFU3CU.EQ.Q)  GOTO  1700 
NIQU=NIQU*1 
IQSOJ(NIOU) =I3CU 
I F ( I 3CU . L  T . 0 )  IQS0UT  =  -1 
I3U=IABS(IQCJ) 

3UIN(I0U)=3UINC 
IF(I3CU.GT.O)  GOTO  1450 
WRITE(6,1500)  IQCJ 
GOTO  1600 

1450  WRITE (6,1 500)  I3CJ,3UINC 

1500  F0RMAT(11X,I10,13X,1PE14.7) 

1500  GOTO  1300 

1700  IF(NI3U.E3.NS0UI)  GOTO  1890 

. END  SIMULATION  1=  THERE  NEED  BE  CORRECTIONS  TO  DATASET  18 

IF(ME)  1740,1740,1760 

1740  WRITE(6,1 750)  NI3J/NS0UI 

1750  form  at ( / // / 1 1 x , *  the  number  oc  solute  source  nodes  read,  *,15, 

1  IS  NOT  EQUAL  TO  THE  NUM3ER  SPECIFIED,  *,I5//// 

2  i i x , 'please  correct  data  and  rerun'//////// 

3  2  2  x , *  S  I^ULATION  HALTE  D*/ 

4  2  2  X , *  *) 


E61  0. 
E  6  2  0 . 
E63Q. 
E640 . 
£650. 
E660. 
E670. 
E680. 
E690. 
E  700 . 
E  7 1  0 . 
E  7  20 . 
E730. 
E  740 . 
E  7  50  . 
E760. 
E  770 . 
E730. 
E790. 
E  800 . 
E81  0. 
E  82  0. 
E830. 
E840 . 
E350. 
E860. 
E870 . 
E880 . 
E  890 . 
E900. 
E910. 
E920 . 
E930. 
E940. 
E950. 
E  960  . 
E  970 . 
E98Q. 
E990. 
E 1  000 
E1010 
E 1  0  20 
E  1  030 
El  040 
E  1  050 
E 1  060 
El  070 
E 1  080 
El  090 
El  100 
El  1  10 
El  1  20 
El  1  30 
El  140 
El  1  50 
El  1  oO 
El  1  70 


El  1 80. 
E  1  1  90 
E  1  200 


SUBROUTINE  S  3  U  R  C  £  SUTRA  -  VERuIuN  123<.~20  cl J. 


SU3R0JTINE  SOURCE  SUTRA  -  VERSION  128..-2D  £13- 


E  2  0  • 

•  ajRPDSE  :  E  3 3 . 

***  TO  RE  AO  AND  ORGANIZE  FLUID  'IASS  SOuRCE  DATA  AND  ENERGY  OR  E  A  0 . 

*•*  SOlJTE  MASS  SOURCE  DATA.  E50. 

E  oO . 

Subroutine  $ojrce(3IN/uin/Ijsop/3uin/IQSOu/i:sopt/Ijsout>  E70. 

implicit  OOu 3l  E  PRECISION  (A-i/O-Z)  £80 . 

COMM  ON  / 01  MS/  NN/NE/NIN/NBI/N3/N8HALF/NPINCH/NPBC/NU8C/  E90. 

1  NSOP/NSOU/NBCN  E100 

C0MM3N/C0NTRL/  GNj/UP/OTMJLT/DTMAX/ME/ISSFLO/IS$TRA/ITCYC/  E110 

1  iNBCYC/NUCYC/NPRINT/ IREAO/ I S TO R £ / NOUM A T / I  UN S A T  E120 

DIMENSION  OIN(NN) /UIN(NN) /I jS  OP (NSOP)/QU IN (NN) / I QSOu <  N  SOU )  El  30 

El  AO. . 

....NSOPI  IS  ACTJAL  NUMBER  0  F  FLUIO  SOURCE  NODES  E 1 5  0  -  - 

_ NSOUI  IS  ACTJAL  NjMSER  OF  SOLUTE  MASS  OR  ENERGY  SOURCE  NOOES  E160.. 

NS0PI=NS0P-1  E 1 70 . . 

NS0uI=NS0u-1  E 1 80 . . 

IOSOPT  =  1  E 1 90 . • 

I  0 SO  JT  =  1  E200.. 

N I QP  =0  E 2 1 0. . 

N I Qu  =0  E2  2  0.  . 

IF(NSOPI.Ea.O)  GOTO  1000  E230.  . 

IF(mE)  50/50/150  E2A0.. 

50  WRITE(6/100)  E250.. 

100  FORMAT (1H1////11X,'F  cUIO  SOURCE  DATA*  E260.. 

1  ////iix/*****  nooes  at  which  fluid  inflows  or  outflows  are  '/  E270.. 

2  ‘SPECIFIED  ****'//1 1 X/ *N00E  NUM3ER'/10X,  E280.. 

3  'FuUIO  InFl0W(O/0JTFL0W(-) '/5X/'S0LUTE  CONCENTRATION  OF'  E290.. 

a  /iix, '(minus  inoicates'/5X/' (fluid  mass/secono) '/  E300.. 

5  1 2X/ ' INFLOWING  FLUI0'/12X/'TIME-VARTING'/39X/  E31 0. . 

6  '(MASS  SOLUTE/MASS  W A T E R ) ' / 1 2 X / ' FLO W  RATE  0R'/12X/  E320.. 

7  'CONCENTRATION)'//)  E330.. 

GOTO  300  E3A0.. 

150  WRITE(6/200)  E350.. 

200  C0RMAT(1 HI ////I  1 X/ 'F  LUIO  SOURCE  DATA'  E360.. 

1  ////II X/'****  NOOES  AT  WHICH  FLUIO  INFLOWS  OR  OUTFLOWS  ARE  '/  E370.. 

2  'SPECIFIED  ****'//1 IX/'NOOE  NUMBER'/IOX/  E380.. 

3  '=LUID  INFl0W(*)/0JTFL0W(~)'/5X/'TEMPERATURE  COEGREES  CELCIUS3'E390. . 

a  /iix/'(minus  inoicates'/5X/' (Fluid  mass/second)'/12X/  eaoo.. 

5  'OF  INFLOWING  FLu I  0 ' / 1 2 X / ' T I M E - V  A R Y ING ' / 1 2 X / ' F LOW  0R'/12X/  EA10.. 

0  'TEMPERATURE)'//)  EA20.. 

E A  30 . . 

- INPUT  DATASET  17  EAAO.. 

300  CONTINUE  E  A  5  0 . . 

RcA0(5/A00)  I3CP/3INC/UINC  EA60.. 

A  0  0  c  3  R  M  A  T (I10/2G15.0)  Ea70.. 

IF(IOCP.EO.O)  GOTO  700  EA80.. 

NIQP=NI0Py-1  E  A  90  .  • 

IwSOP(NIQP) =IOCP  E500. . 

IF(I3CP.LT.O)  IwSOpT=-1  E  5 1 0 . . 

IJP  =  I A3S ( IQCP)  E  5  20 . . 

3IN(IwP)=JlNC  E  5  30  .  . 

JIN(IO°)=ulNC  E  5  AO  .  . 

IFCI3CP.GT.0)  GOTO  A  5  0  E5  50.. 

wRITE(6/500)  I 3C  P  E560.. 

GOTO  oOG  E  5  70  .  . 

A  5  0  IFCGInC.GT.O)  GOTO  A60  E580.. 

WRITE(6/500)  I3CP/QINC  E59J. . 


subroutine 


plot 


SUTRA  -  VERSION  1284-2D  010 


rfRITE  (6r 80)  (TITLE(1,NP)>  D3010 

D3020 

RETURN  03030 

03040 

...FORMATS  D3050 

40  FORMAT  (*1*>  03060 

80  FORMAT  ('O', 41 X*1 A30)  03070 

EnO  03080 


o  o  o  t  *  n  n  o  o  o  o 


SUBROUTINE  o.O 


SuTRA  -  VERSION  123<*-2D  010.. 


133  DO  150  J  =  1 /NOS  02410 

155  IF  CNCJ) .EQ.KCJ)*1>  GO  TO  150  02420 

IFCI.GT.1)  GO  TO  137  02430 

IFCXX(N(J)).LE.Z+XN1*X$F)  GO  TO  1  37  02440 

NCJ)=NCJ)*1  02450 

GO  TO  135  02460 

137  IF  C XX CNC J) >  .LS .Z  +  XNl  *XSF. ANO.XX CNC J) ) .GE.Z-XNl *XSF)  GO  TO  140  D2470 

GO  TO  150  02480 

C  140  M=NR*0.50Q-  CCYYCNCJ))-YMIN)*n2)/YSF  02490 

143  DEL  Y  C  =  C C YYC NC J) ) -YMIN) *N2) / YSF  02500 

M  =NR ♦O . 5  00  -  OELYG  D2510 

:  02520 

C  REVERSE  SIGN  OF  YY  (I.E.  REVERSE  PLOTTING  DIRECTION)  IF  02530 

C  GRA  IS  TO  3  E  TRANSPOSED ...  .  02540 

IFCKXKKK.EQ.-1)  M=0.5D0  ♦  DElYC  02550 

C  D2560 

IFCM.lT.O.OR.M.GT.NR)  GO  TO  145  D2570 

IFCCCCNCJ)))142,146,147  D2580 

142  IF(m.nE.O)  PRnT(M)=SYM(16>  02590 

N  UM  = (”CC(N(J) )  ♦ .  00500)  *10.00  02600 

GO  TO  141  02610 

147  NjM=CCCCNCJ))«-0.00500)*100.00  02620 

IF  (NUM.GT .999)  N JM=MD0 ( NUM, 1 000 )  02630 

141  IFCNJM.LT.  100)  GO  TO  143  02640 

IN0X3=NUM/10D  D2650 

IF  CH.NE.O.ANO.CC  CNCJ)  )  .GT .0.)  PRNT ( M> =SY M < INDX 3 )  02660 

NjM=njM-IN0x3*100  02670 

143  IN0X1=M00CNJM/10)  02680 

IFCINOX1.EQ.0)  IN0X1 =1 0  02690 

I NDX  2  =  NUM /  1  0  D2700 

IFCIN0X2.EQ.0)  INOX2=10  02710 

GO  TO  144  02720 

146  I ND X 1  =1  4  02730 

IN 0X2=14  02740 

144  PRNT CM*1 )=$YM(IN0x2)  02750 

ORNTCM  +  2)  =  SYMCINOX1  )  02760 

145  NCJ)=NCJ)>1  02770 

IF  CNCJ).EQ.KCJ)*1)  GO  TO  150  02780 

IF  CXX(NCJ)).LE.Z*-XN1*XSF.AN0.XX(N(J)).GE.Z-XN1*XSF)  GO  TO  140  D2790 

150  CONTINUE  02800 

C  02810 

....PRINT  AXES, LABELS,  AND  POINTS  D2820 

IF  CI-NA.EQ.O)  GO  TO  170  02830 

IF  CI-NB3.EQ.0)  GO  TO  180  02840 

IF  CCI-1)/N1*Nl-CI-1))  190,160/190  02850 

160  WRITE  C6,VF1)(BLANKCJ),J=1,NC),(PRNT(J),J=1,N8),NXCH-CI-1)/N1)  02860 

GO  TO  200  02870 

170  WRITE  C6/VF2) C3LANKCJ) ,J=1,NC), CPRNTCJ), J=1 ,N8)  02880 

GO  TO  200  02890 

130  WRITE  C6,V*2> C8lANKCJ), J=1 ,NC), CPRNTC J), J=1,N8>  02900 

GO  TO  200  02910 

190  WRITE  C6, VF2) C3LANK C J) , J=1 ,NC) , CPRNT C J) , J=1 ,N8)  D292C 

02930 

....COMPJTE  NEW  VALUE  FOR  Z  AND  INITIALIZE  PRNT  02940 

200  Z =1-2. 0Q*XN1 *x SF  02950 

00  210  J=1 ,N3  02960 

210  PRNT  Cj)=SYMC1  1)  02970 

02980 

....NUMBER  ANO  LABEL  Y  AXIS  AND  PRINT  TITLE  02990 

WRITE  C6, V  =  3) CBLANK CJ)  , J  =  1  ,NC) , CNY Cl ) , 1  =  1 ,N6)  03000 


o  o  oooooo 


SJ3RDUTINE 


PLOT 


SUTRA  -  VERSION  1284-20  010... 


INDEX  IKK  )  =T£ MP3 
YY(K<)=TEMPI 
50  XX(KO=TEMPII 
90  CONTINUE 
C 

C . COMPUTE  LABEL  NUMBERS  FOR  X  AND  Y  AXES 

DO  100  1  =  1 ,  N  E  E 

NNX=N5~I 

NNY  =  NO- 1 

IF(NNY.LT.O)  00  TO  95 
NY ( I ) = YSF«NNY+YMI N 

IFOUKKK.EQ.-1)  NY(I)=YWIN*<I-1)*YSF 
95  IF(NNX.LT.O)  30  TO  100 
NX(I)=XSF*NNX+XMIN 
100  CONTINUE 
C 

C . SET  JP  PLOT  OF  MESH 

00  1  05  1  =  1  ,  N  N 
105  CVEC(I)=I*00. 010000 


. ENTRY  FOR  PRESSURE  AND  CONCENTRATION  OR  TEMPERATURE  PLOTS 


1  CONTINUE 


C 

c . . . . 


..NORMALIZE  VARIABlE  TD  BE  PLOTTED 
CCNO  R  M= 1 .000 
IF<NP.EQ.2)  CCNORM=PBASE 
IF(NP.GT.2)  ccnorm=ubase 
DO  2  1=1 / N N 

CC(I)=CVECCINOEX(I) ) /CCNORM 

.INITIALIZE  VARIABLES 
Z  =  X  M  A  X 

WRITE  (6,40) 

00  13  1=1, NOS 
N< I) =1 

DO  210  1=1, N4 
.LOCATE  X  AXES 

IF  (I.EQ.1.0R.I.E3.N4)  GO  TO  110 
DO  1 1 4  J=1,N8,N9 
PRNT(J)=SYM<15) 

.LOCATE  Y  AXES 

IF  (  (1-1 ) /N1 *Nl .NE.I-1 )  GO  TO  117 
PRNT ( 1 )=SYM(14) 

PRNT  (  N8)=SYM(14) 

IF<< 1-1 >/N7*n7. NE.I-1)  GO  TO  130 
DO  115  J  =  2 , N R 

IF( ( J  —  1 )/N9*n9.EQ.J-1)PRNT(J)=SYMC17) 
IF( (J-1 )/N9*N9.NE.J“1 )PRNT (J)=$YM(l6) 

GO  TO  130 
DU  120  J=1,N3 

IF  (  (J-1  )  /  N2*n2.E«i.J-1  )  PRNT  (J)=SYMC1a) 
IF  <  C  J  —  1  )/N2*N2.NE.J-1 )  PRNT (J)=SYM(l6) 


..COMPUTE  LOCATION  OF  POINTS 


01813. 
D 1 820, 
D 1  3  30 . 
01840, 
01  850, 
D 1 860, 
D1  870, 
D 1  8  80. 
01890 
D1  900 
D1  910, 
D 1 920 , 
D1930, 
D1  940 
D 1  9  5  0 
D1  960 
D1970 
D1980 
D1990 
D2000 
D201  0 
02020 
D2030 
02040 
D2050 
02  060 
D2070 
02080 
02090 
D2100 
D21 1  0 
02120 
021  30 
02140 
D21  50 
02160 
021  70 
D2180 
D21  90 
D2200 
D2210 
D2220 
D2230 
02240 
D2250 
02260 
02270 
02280 
02290 
D2300 
D  2  3 1  0 
02320 
02  3  30 
02340 
D2350 
02360 
02370 
02380 
D2390 
02400 


S  j  5  R  Du  T  I  N  c 


o 


0  T 


S  uTR  A 


VERSION  123-4-20  010 


(note:  yy  plots  across  page/  xx  plots 

IF  (XXKKK.50.-1)  GOTO  361 
DO  362  I=1/NN 

X  X ( I ) =  X(I) 

Y  Y ( I ) =  Y (I) 

362  IN0cX(I)=  r 
GOTO  363 

361  00  363  1  =  1  ^  N  M 
XX(I)=+Y(I) 

YY(I)=>X(I) 

note  that  the  sign  of  yy  is  reversed 
in  order  to  complete  the  rotation 

363  I  NOE  X ( I ) =  I 
3o8  CONTINUE 

....INITIALIZE  VARIABLES 
NXO=NXS«NINX 
NYO  =  NY  S*NINY 

IF(NXO.GE. ((MY0+1)/2))  GOTO  11 
NINX=1+((NYD-1)/(2*NXS>) 

N  X  0=  N  X  S  *  N I N  X 

11  XSF=XRANGE/NXO 
YSF= YR ANGE/NYO 
IFUKKKK.EQ.+I  )  GOTO  12 
XSF=YRANGE/NXD 
YSF=XRANGE/NYD 

12  CONTINUE 
N4=NX0*Nl *1 
N5=NX0+1 
N6  =  NYQM 
N7  =  N1 *NINX 
N3=N2*NYO+1 
N9=N2*NINY 
N  R  =  N  3”  1 
NA=N4/2~2 
NB3=N4/2*4 
NC=(N3-N3-10)/2 
ND=NC>N8 
NEE=MAXO (N5/N6) 

V  F 1 (3)=OIGIT(N0-40> 

VF2 ( 3) =0 1 G I T (NO-43) 

VF3(3)=OIGIT(NC) 

....ARRANGE  EACH  DATA  SET  IN  OESCENOING 
00  90  L  =  1 /NOS 
NNN=  X (L) 

00  30  I=1/NNN 
9 IG  =  X  X (  I  ) 

K  K  =  I 

00  20  J=I/NNN 
IF(XX(J).GT.3IG)  GO  TO  15 
GO  TO  20 
15  8IG=XX(J) 

K  K  =  J 

20  CONTINUE 

TEMPI=YY(I) 

TSMPII=XX(I) 

TEMP3  =  IN0EX(  I) 

YY(I)=YY(KK) 

XX ( I ) =XX ( KK) 

I NOeV (I)=INOEX(KK) 


along  page)  01210 

01220 

01  230, 
01240 
01250 
01  260, 
01270, 
01280, 
01 290, 
D 1 300 , 

LATER  01310. 

01320, 
D1330. 
01 340, 
01  350, 
01360. 
01370. 
01 380. 
01 390, 
01400, 
01410. 
01420. 
01430. 
01440. 
01450, 
01460. 
01470, 
01480. 
D 1 4  90 . 
01500. 
01510, 
01520. 
01530. 
01 540. 
01550, 
01560. 
01570. 
01580. 
D1590. 
01600. 
01610. 
01 620. 

VALUES  OF  X  01630, 

D 1 640 . 
01650. 
01660. 
01670. 
01680. 
01 690. 
01700. 
01710. 
01720. 
01 730. 
01740. 
01750. 
01760. 
01 770. 
01780. 
D1 790. 
01800. 
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Sj3RDuTIN: 


3  A  N  *  I  0 


SuTRA  -  VERSION  1284-20 


+  **  PjRPDSE  : 

c  ***  ro  calculate  and  check  sand  width  o  -  finite  element  mesh. 

r 

SuBRDjTINE  a  A  N W  I  0 ( I N  > 

IMPLICIT  DDu3.E  PRECISION  (A-1/0-Z) 

COMMON /  DIMS/  N  N  /  N  E  /  N I N  /  N 8  I  /  N  3  /  N  8  H  A  L  F  /  N  P I N  CH  ,  N P  8 C  /  NU  BC  / 

1  NSOP/NSDU,  N3CN 
DIMENSION  I  N ( N I N ) 

N3TE  ST  =  0 
N  0  I  F  =  0 
I  I  =  J 

WRITE (6, 1JO) 

100  =ORM AT (/ // /I  1 X, * ****  MESH  ANALYSIS  ****'//> 

r 

C . find  ELEMENT  WITH  MAXIMUM  DIFFERENCE  IN  NODE  NUMBERS 

DO  2  000  L  =  1  ,  N  £ 

11=11+1 
I£LO=IN (II) 

IEHI=IN(II) 

00  1000  1=2/4 
11=11+1 

IF(INCII).LT.IELO)  IELO=lN(II) 

1000  IF(INCII) .GT. IEHI)  IEHI=IN(II) 

N0IFF=XEHI-IEL0 
IF (NDIFF.GT.NOIF)  TmEN 
noif=noiff 
lem=l 
enoif 

NBL=2+N0IFF+1 

IFCN3L.GT.N8I)  WRITEC6/1500)  L/N8L/NBI 
1500  F0RMATC/13X, 'ELEMENT  ',14,'  HAS  BANDWIDTH  ,15/ 

1  '  WHICH  EXCEEDS  INPUT  8AN0WIDTH  ',13) 

IFCN3L.GT.NBI)  N8TEST=NBTcST+1 
2000  CONTINUE 

C . CALCULATE  ACTUAL  3AN0  WIDTH,  NB. 

NB=2*N0IF+1 
N8HALF=NDIF+1 
WRITEC6/2500)  N8/LEM/NBI 

2500  p0RMATC//13x,*ACTjAl  MAXIMUM  3AN0WIDTH,  ',13/ 

1  *,  WAS  CALCULATED  IN  ELEMENT  ' , I  4 / 1 3X , 7 (  1  H~ ) , 

2  'INPUT  3ANDWIDTH  IS  *,I3) 

IFCN3TEST.E0.0)  GOTO  3000 

W 

WRITE C6/2300)  N3TEST 

2  300  cORMAT  C /  /  / / / / 13x,' I N  p  J  T  BANDWIDTH  IS  EXCEEDED  IN  ',14,'  ELEMENTS' 

1  /IIX/'PLEJSE  CORRECT  INPUT  DATA  AND  RERUN.', 

2  /////// /22x ,' S  IMULATION  HALTS  0'// 

3  2  2  x  ,  ' . ') 

ENDFIlE  C  6 ) 

STOP 


5000  WRITE C6/4000) 

4000  =0RM4TC////////1X,132C1h-)///42x,'E  N  D 
1  '  =  R  0  M  J  N  I  T  -  5 ' // 1 32 ( 1 H-) ) 

R: T jRN 
END 


INPUT 


110.. . 
120.  .  . 
130.  .  . 
140  ..  . 

150. .  . 
160  ..  . 
170.  .  . 
180.  .  . 
190.  .  . 

1100.. 
1110.. 
1120.. 

1130.. 

1140. . 

1150.. 

1160.. 

1170.. 

1130.. 

1190.. 

1200. . 
1210. . 
1220. . 

1230.. 

1240.. 

1250. . 

1260. . 

1270. . 

1280.. 

1290.. 

1300.. 

1310.. 

1320. . 

1330. . 

1340. . 

1350. . 
1360.  . 
1370.  . 

1380. . 

1390. . 

1400. . 

1410.. 

1420. . 

1430. . 
1440.  . 

1450. . 

1460. . 
1470.  . 
1430.  . 

/  1490.  . 
1500.  . 

1510.. 
15  20.  . 
15  30.  . 
1540.  . 
1  550.  . 
1  560.. 
15  70.  . 
1  5  30.  . 
1  5  90.  . 
1600.  . 
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SUBROUTINE 


Sutra  -  version  1284-20  j  1  □ . 


SUBROUTINE 


SUTRA  -  VERSION  1284-20 


*•*  purpose  : 

***  TO  CHECK  THAT  PINCH  NODES  are  NOT  ASSIGNED  SPECIFIED 
***  PRESSURES/  CONCENTRATIONS/  TEMPERATURES  OR  SOURCES. 

SUBROUTINE  NCHECK(IPInCH/I0S0P/I3S0U/IPBC/IuBC) 

IMPLICIT  DOUBLE  PRECISION  (A-H/O-Z) 

COMMON/DIMS/  NN/NE/NlN/NBI/N8/NaHALF/NPINCH/NPBC/NU6C/ 

1  NSOP/NSOU/NBCN 

COMMON/CONTRL/  GNj/UP/DTMULT/DTMAX/ME/ISSFLO/ISSTPA/ITCYC/ 
1  NPCYC/NUCYC/NPRlNT/IREAD/ISTORE/NOUMAT/IuNSAT 
DIMENSION  0D3X(30)/OQJX(30)/0PX(30)/OUX(30> 

DIMENSION  IPINCH(,NPINCH/3)/I3SOP(NSOP>/I3SOu(NSOU)/ 

1  IP6C (NtlCN) /IUBC (N3CN) 


I OPX  =  0 
I  DUX  =0 
IPX  =  0 
lux  =  0 

NPIN=NPINCH-1 
NS0PI=NS0P-1 
NSOUl =NS0U"1 
DO  1000  I=1/NPIN 
IPIN=IPINCH( 1/1 ) 

.MATCH  PINCH  NOOES  WITH  FLUIO  SOURCE  NODES 
IF(NSOPI.EO.O)  GOTO  200 
DO  100  IQP=1/NS0P 

IF(IPIN-IABS(IQSOP(IQP)))  100/50/100 

I0PX=IQPX*1 

JJPX(IQPX)=IPIN 

CONTINUE 

IF (NSOUl. EQ. 0)  GOTO  400 

■MATCH  PINCH  NOOES  WITH  ENERGY  OR  SOLUTE  MASS  SOURCE  NODES 
DO  300  IQU=1/NS0U 

IF(IPIN-IABS(IQS0J(IQJ)))  300/250/300 

I3UX=IQUX*1 

JQUX(IOUX)=IPIN 

CONTINUE 

IFCNPBC.ED.O)  GOTO  600 

■MATCH  PINCH  NOOES  WITH  SPECIFIED  PRESSURE  NODES 
DO  500  IP=1/NPBC 

IF(IPIN-IABSCIPBCCIP)))  500/450/500 

IPX=IPXt1 

JPX  (  IPX)  =  IPIN 

CONTINUE 

IF (N J3C. EO.O)  GOTO  1000 

■MATCH  PINCH  NODES  WITH  SPECIFIED  TEM°ERATjRE  OR 
CONCENTRATION  NODES 
00  700  I  U=  1 /NJBC 
IUD=IU>NP3C 

IF(IPIN-IABS(IUBC(IUD)))  700/550/700 

IuX=lJX+1 

JoX(IjX)=IOIN 

CONTINUE 

CONTI NUc 

■  END  SIMULATION  I e  CORRECTIONS  TO  jNIT-5  DATA  ARE  RED J I  RED 
IF  ( IJPX  .E ..0)  GOTO  1300 
WR IT  £ (  6/  1  250)  < J 3°x ( I) / 1  =  1 / I Jpx  ) 


50 

1  00 
200 


250 

300 

400 


450 

500 

600 


650 

7  0  0 

1  000 


010... 
020... 
J 30 . . . 
040.  .  . 
050  . .  . 
060. .  . 
070.  .  . 
0  80  •  •  • 
090.  . . 
0100.. 
0110.. 
0120.  . 
0130.  . 
0140.  . 
0150.. 
0160.  . 
01 70.  . 
0180.. 
0190.. 
02 00 .  . 
0210.. 
0220. . 
0230. . 
0240. . 
0250. . 
0260. . 
0270. . 
0280. . 
0290.. 
0300.  . 
0310.. 
0320. . 
0330. . 
0340. . 
0350. . 
0360. . 
0370. . 
0380. . 
0390. . 
0400.  . 
041 0. . 
0420.  . 
0430.  . 
0  a  4  0  •  . 
0450.  . 
0  4  60.  • 
0  4  7  0.  • 
0  4  8  0.  . 
0  a  9  D .  . 
0500.  . 
0510.. 
05  20.  . 
0530  .  . 
0540.. 
0550.  . 
0560.  . 
05  70.  . 
05  3C  .  . 
0  5  9  u  •  . 
0  o  0  u  .  . 
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i  J, 


;WA  -  V  E  R  S  I  U  N  1  3  0  J  1  j  . 


FORMAT C/ //// 1 1 </* The  -OlLGWINj  NOOcS  MAY  NOT  3E  SPECIFIED  AS*/ 

'  FUID  SOURCE  NODES  :  *  /  1  5  X  ,  2  (  2  0  1 6  /  )  ) 

WRITEC6/1251  ) 

FORMAT (/ 1 1 X  / 'PLEASE  RE0ISTRI3UTE  SOURCES  OR  CHANGE  THESE  PINCH*/ 

*  nodes  to  normal  corner  mesh  nodes  and  then  rerun.') 

IFdJjX.E  j.O)  GOTO  1400 

IFCM5.E3.-1)  -RITE(o/1350)  CJQUXCI>/I=1/IJUX) 

FORMAT (/ ////I  IX/*  TH£  FOLLOWING  NODES  MAY  NOT  3E  SPECIFIED  AS*/ 

*  solute  SOURCE  NOOES  :  */15X/2C23l6/>) 

IrCME.SQ.M)  wRITECo/1  355  )  C  J  2U  X  C  i  )  /  I  =  1  ,  I QU  X  ) 

FORMATC / // // I  1 X, *  THE  FOLLOWING  NOOES  MAY  NOT  3E  SPECIFIED  AS*/ 

*  ENERGY  SOURCE  NOOES  :  * / 1 5 X / 2 < 20  I  6/ > > 

WRITEC6/1251) 

IF(IOX.EQ.O)  SOTO  1500 
WRITEC6/1450)  (JPX(I)/I=1/IPX) 

CQRMATC/////11X/*THE  FOLLOWING  NODES  MAY  NOT  3E  INPUT  AS*/ 


SPECIFIED  AS*/ 


*//15X/2C20I6/)> 


OR  *  / 
AND'/ 


I  *  SPECIFIED  PRESSURE  NOOES  :  * / / 1 5 X / 2 ( 20 1 6 / )  ) 

WRITEC6/1 451 ) 

FORMATC/ 1 1 X/ 'PLEASE  REMOVE  SPECIFIED  PRESSURE  RESTRICTION  OR*/ 

I  *  CHANGE  These  PINCH  NOOES  to  NORMAL  CORNER  MESH  NODES  and'/ 

!  *  THEN  RERUN.*) 

IFCME)  1 600/ 1500/1660 
IFCIJX.EQ.O)  GOTO  1680 
WRITEC6/1650)  CJUXCI)/I=1/IUX) 

F0RMATC/////1 IX/'THE  FOLLOWING  NOOES  MAY  NOT  BE  INPUT  AS*/ 

*  SPECIFIED  CONCENTRATION  NODES  :  * / / 1 5 X , 2 C 20 1 6/ ) ) 
WRITEC6/1651) 

FORMAT  C /I  1 X/ *  PLEASE  REMOVE  SPECIFIED  CONCENTRATION  RESTRICTION  */ 
I  'OR  CHANGE  THESE  PINCH  NOOES  TO  NORMAL  CORNER  NODES  AND*/ 

!  *  THEN  RERUN.*) 

GOTO  1680 

IFCIJX.EQ.O)  GOTO  1680 
WRITEC6/1 670)  C JUXCI)/I=1/IUX) 

F0RMATC/////1 1 X/ 'THE  FOLLOWING  NODES  MAY  NOT  BE  INPUT  AS'/ 

*  SPECIFIED  TEMPERATURE  NODES  :  ' / / 1 5 X , 2 C 20 1 6 / ) ) 

WRITEC6/ 1 671 ) 

=0RMATC/11X/*PLEASE  REMOVE  SPECIFIEO  TEMPERATURE  RESTRICTION  OR*/ 
I  *  CHANGE  THESE  PINCH  NODES  TO  NORMAL  CORNER  NODES  AND*/ 

!  *  THEN  RERJN.  * ) 


IFCIQX+IPX+IUX)  13 
WRITE  C6/1  750) 
FORMAT  C/ ///////I  1 X 
I  1  1  X 

ENOF IlE  C6) 

STOP 


RETURN 

END 


1300/1800/1700 


H  A  L  T  E  D*// 


U  6  1  0  . 
Jo  2  0 . 
Jo30. 
Jo  4  0 . 
J  6  5  0  . 
JO60 . 
Jo7G. 
Jo  30 . 
J690. 
J700. 
J  7 1  u  . 
J  7  2  0  . 
J73Q. 
J  740 . 
J  7  5  0  . 
J760. 
J  7  70 . 
J730. 
J790. 
J800 . 
J810. 
J820. 
J830. 
J840. 
J850. 
J860. 
J870. 
J880. 
J890. 
J900. 
J910. 
J920. 
J930. 
J940. 
J950 . 
J960. 
J970. 
J980. 
J990. 
J1000 
J1010 
J 1  020 
J1  030 
J  1  040 
J1  050 
J1  D60 
J 1  0  70 
J 1  080 
J 1  090 
J 1 1  00 
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SUTRA 


VERSION  1284-2D  MO 


i 

h.. 


D 


* 


I* 


C 

C 

c 

c 


c 

c 

c 


c 

c 


c 


c 

c 
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subroutine  i  n  d  a  t  2  Sutra  -  version  1284-20  mo. 

*  20 . 

**•  purpose  :  *  30 . 

***  TO  READ  INITIAL  CONDITIONS  FROM  UNIT-55*  AND  TO  *40. 

***  INITIALIZE  OATA  FOR  EITHER  WARM  OR  COLD  START  OF  *50. 

***  THE  SIMULATION.  •  *  60  . 

*70. 

SUBROUTINE  INDAT2(PVEC*UVcC*PM1*UM1*UM2*CS1*CS2*CS3*SL*SR*RCIT*  K30. 
1  SW*0SWDP*P3C*IP8C*IPBCT)  *90. 

IMPLICIT  DOUBLE  PRECISION  (A-H/O-Z)  MOO 

COMMON/OIMS/  NN*NE*NI N  *  N  3 1  *  N  3  /  N  B  H  A LF  *  NP  I  NC H  *  N P  B  C  *  NUB C  *  K 1 1 0 

1  NS0P*NS0J*N3CN  M  20 

COMMON/CONTRL/  GN J / U P * D T M J L T / DT M A X * M E / I S S F L 0 *  I S S T R A , I T C Y C /  M 30 

1  NPCYC*NUCYC*NPRlNT,IREAD/ISTORE*NDUMAT,lUNSAT  *140 

COMMON/TIME/  DELT*TSEC*TMIN*THOUR*TDAY*TWEEX*TMONTH*TYEAR,  M  5 0 

1  TMAX*0ELTP*0ELTU*D^TPM1,0LTUM1*IT*ITMAX  M  60 

COMMON/PARAMS/  COMPFL*COMPMA*DRWOJ*CW*CS*RHOS*DECAY*SIGMAW*SIGMAS*K170 
1  RHDWO*URhOwO*VISCO*PRODF1,PRODS1*PRODFO*PRODSO*ChI1*CHI2  M  8  0 

DIMENSION  PVEC<NN)*UVEC(NN)*PM1<NN)*UM1(NN)*UM2(NN>*SL(NN>*SR(NN)*M90 

1  CS1(NN)*CS2(NN)*CS3(NN)*RCIT(NN>*SW(NN)*OSwDP<NN)/  *200 

2  P3C(NBCN) /IPBC(NBCN)  *210 

K220 

*230 

IF(IREAD)  500*500/620  K240 

....input  initial  conditions  for  warm  start  (unit-55  data)  k250 

500  REAO(55*510)  T S T A R T * DE L T P * DE LT U  *260 

510  FORMAT (4G20. 1 0)  *270 

REAOC55/510)  (PvEC<I)*I=1*NN)  *230 

READ(55*510)  (UVEC(I)*I=1*NN)  *290 

REA0(55*510)  (PM1 (I)*I=1*NN)  *300 

REA0C55/510)  (UMl (I)*I=1*NN)  *310 

REAO(55*510)  (CS1 <I) *1=1 *NN)  *320 

REAO(55*510)  (RCIT(I)*I=1,NN)  *330 

REA0C55/510)  (Sw(I)*I=1 ,NN)  *340 

REAO(55*510)  ( P BC ( I PU ) *  I PU= 1  * NBCN )  *350 

CALL  ZERO(CS2*NN*0.000)  *360 

CALL  ZERO(CS3*NN*O.ODU)  *370 

CALL  ZERO( SL/NN/O.OOO)  *380 

CALL  ZERO(SR*NN, 0.000)  *390 

CALL  ZERO(DSWOP*NN*O.ODO)  *400 

00  550  1=  1  *  N  N  *  4 1 0 

550  UM2(I)=uM1 (I)  *420 

GOTO  1000  *430 

*440 

....INPUT  INITIAL  CONDITIONS  FOR  COu  0  START  (UNIT-55  DATA)  *45  0 

620  R£A0(55*510)  TSTART  *460 

RcAO(55*510)  (pvEC(I)*I=1*NN)  *470 

RcAD(55*51D)  CJvEC(I)*I=1,NN)  *480 

....START-UP  WITH  NU  PROJECTIONS  BY  SETTING  3 u E L p = B D E L U = 1 . D- 1 0  *490 

IN  PROJECTION  cORMUlAE  FOUND  IN  S_3R0uTIN:  SUTRA.  *500 

OcLTP=OELT*1 . D 1 0  *510 

OcLT J=DELT*1 . 01 0  *520 

....INITIALIZE  SpECIFIEO  TIME-VARYING  pRESSJRcS  Tj  I  N  I  T  I  A  u  PRESSURE  *530 
VALUES  FOR  START-JP  CALCULATION  0=  INFLOWS  OR  0JTFL0«S  *540 

(SET  4°LITR=0)  *550 

IF(IPBCT)  680*740*7^0  *560 

680  Du  730  IP=1*NP3C  *570 

•  I=Ip3C(ID)  *530 

I  F (  I  )  700*  70  0*  7  30  *  5  R  0 

7  0  0  p3C(Ip)=PvE0(-I)  *  o  C  0 
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S  3  *  )  0  T  I  N  C 


T 


*  0  A  T  a 


s  j  r  .«  a 


VERSION  1  £  3  ^  o  mo 


7  3  3  CONTINUE  <61 

....INITIALIZE  P  /  U  *  AND  CONSISTENT  DENSITY  <6  2 

T.330333I=1/NN  <  o  3 

BUdJsPViCd)  <64 

0MUI)=UVEC(I)  <65 

J  M  2  C I)=UV£C(  I)  K  6  6 

RCiT(i)  =  RHOk.DORRDu*(uvEC(i)-uRriOw3)  <o7 

30  3  CONTINUE  <68 

_ INITIALIZE  SATURATION*  SW(I)  <69 

Call  ZfRO(S**NN*1 .003)  <70 

; a l k.  zerocdsro0*n\j*o.3do>  <71 

If C I JNSAT.Nc. 1 )  GOTO  99Q  <72 

: j  n  s  a  t  = 3  <73 

DO  933  1  =  1  .  NN  <74 

903  If (PVcC < I) .LT.3)  CAlL  UNSAT(Srf(I)*DSROP(I)*RELK*PVEC<I))  <75 

993  CONTINUE  <76 

CALL  ZER0ICS1 *NN*CS)  <77 

CALl  ZER0(CS2*NN*3.003)  <78 

CALL  ZERO(CS3*NN*3.003)  <79 

CALL  ZESCHSL/NN/O.OQO)  <80 

CALL  ZERO(SR*NN*0.000)  <81 

303  CONTINUE  <82 

<83 

....SET  STARTING  TINE  OF  SIMULATION  CLOCK*  TSEC  <84 


Subroutine 


p  r  i  s  o  l 


SuTRA 


VERSION  1284-20  L 1 0 


subroutine 


Sutra  -  version  1234-20 


*  *  • 
*  *  * 
*  *  * 
* » * 


PURPOSE  : 

TO  PRINT  PRESSURE  ANO  TEMPERATURE  OR  CONCENTRATION 
SOLUTIONS  ANO  TO  OUTPUT  INFORMATION  ON  TIME  STEP,  ITERATIONS, 
SATURATIONS,  AND  FlUIO  VELOCITIES. 


subroutine  prisol(ml,istop,igoi,pvec,uvec,vmag,vang,sw) 

IMPLICIT  00u3l  E  PRECISION  <A-H,0-Z) 

COMMON  /OIMS/  NN,NE,NI.N,NBI,NB,NBHALF,NPINCH,NPBC/NU6C, 
NSQP,NS0u,N3CN 

COMMON/CONTRL/  GNU, UP, DTMuLT,QTMAx, ME, ISSFLO,ISSTRA,ITCYC, 
NPCrC,NUCVC,NPRlNT,IREAO,ISTORE,NOuMAT,IUNSAT 
COMMON/ TIME/  oelt,tse:,tmin, hour, tday,tweek,t month, tyear, 

TMAX,DELTP,DELTU,0uTPM1,0LTUM1,IT,ITMAX 
COMMON/ ITS  RAT/  RPM, RPWAX, RUM, RUMAX, ITER, ITRMAX,IPwORS,IU HORS 

common /kprint/  kcooro,kelinf,<incio,<plotp,k.plotu,kvel,k3udg 

OIMENSION  PVEC(NN),UVECCNN),ViAG(NE),VAN5(NE),Sw(NN) 


oO 


1 


6  5 


Output  mauor  headings  for  current  time  step 
IF(IT.GT.O.OR.ISSFLO.E0.2.0R.ISSTRA.EQ.1  )  GOTO  100 
WRITE(6,6u) 

P0RMAT(1H1////11X,'I  NITIAl  CONDITION  S', 

/I  1  X,  ' _ _ _ _ _ *  ) 

IFdREA0.EQ.-1  )  WRITE<6,65) 

FQRMAT(//11X,' INITIAL  CONDITIONS  RETRIEVED  FROM  STORAGE  ', 
'ON  UNIT  55.') 

GOTO  500 


100 
1  50 


IF(IGOI.NE.O.ANO.ISTOP.EQ.O)  WRITEC6/15G)  ITER, IT 

F0RMATC////////11 X, 'ITERATION  ',13,'  SOLUTION  FOR  TIME  STEP  *,l4> 


250 


1 


IFdST0P.EG.-1  )  WRITE(6,250)  IT, ITER 
F0RMAT(1H1//11X, 'SOLUTION  FOR  TIME  STEP  ',14, 
'  NOT  CONVERGED  AFTER  ',13,'  ITERATIONS.') 


350 


14/ 


355 
4  50 


IF(ISTOP.GE.O)  wRITE(6,350)  IT 
F0RMAT(1H1//11X, 'RESULTS  =0R  TIME  STEP 

1  IX,' . .  . . '  ) 

IF (ITRMAX . EQ. 1 )  GOTO  500 

IF(ISTOP.GE.O.ANO.IT.ST.O)  wRITE<6,355)  ITER 

IF (I T . EG. 0. AND. ISTOP. SE .0. ANO. I SSFLO. EQ. 2)  W R  I  T E ( o ,  3 5 5  )  ITER 

FORMAT (1 1 X, ' (AFTER  ',13,'  ITERATIONS)  :') 

WRITE(6,450)  R  =  M  , l  P  w  0  R  S  , RUM, IUWORS 

FORMAT (// 1 1 X, 'MA X IMuM  P  CHANGE  FROM  PREVIOUS  ITERATION  ', 

1=014.5,*  AT  NOOc  ', 15/1 1 X, 'MAXIMUM  U  CHANGE  FROM  PREVIOUS 
'ITERATION  ',1=014.5,'  AT  NODE  ',15) 


500 


550 


IFdT.EG.  J.ANO.  ISSCL0.EG.2)  GOTO  530 
IF(ISSTRA.Ew.l)  GOTO  300 

WRITE (6,550)  OELT,TSEC,TMIN,TiOuR,TGAr,TWEEK, 

TMONTH,TrEAR 

c0RMAT(///11x,'TIME  INCREMENT  :',T27,1=015.4,'  SEC0NDS'//11x, 

'ELAPSED  TIME  :  ' , T27, 1 =01 5. 4  ,  '  S E C 0 N D S ' , / T 2 7 , 1 P 0 1  5 . 4  ,  '  MINUTES 


/T27,1P015.4, 
T27,  1  =01 5. 4, 


HOURS' /T27,1=D1 5.4, '  DArS'/T27,1P015.4,' 


EXS 


M0NTiS'/T27,1P015.4,'  TEARS') 


Output  pressures  =  o  r  transient  flow  solution  (and  possibly, 

SATURATION  AND  VELOCITY) 

IF  (M.  .  EG  .  2  .  AND. I  STOP. SE . 0)  GOTO  700 


Li  0. 
L  2  0 . 
L  30 . 
L  4  0  . 
L  5  0  . 
L60  . 
L  70  . 
L80. 
L  90  . 
LI  00 
LI  1  0 
LI  20 
LI  30 
LI  40 
LI  50 
LI  60 
L  1  70 
LI  80 
LI  90 
L  2  00 
L  2 1  0 
L220 
L2  30 
L  24  0 
L  2  5  0 
L  26  0 
L  2  70 
L280 
L290 
L  300 
L  3  1  0 
L320 
L330 
L340 
L350 
L360 
L  3  7  0 
L  3  80 
L390 
L  4  0  0 
L  4  1  0 
L  4  2  0 
L  4  3  0 
L  4  4  0 
L  4  5  0 
L460 
L470 
L  4  30 
L  4  R  0 
L  5  00 
L  5  1  0 
L  5  2  0 
L  5  30 
'  L  5  4  0 
/  L  5  5  0 
L  5  6  0 
L  5  7  0 
L  5  30 
L  5  0  0 
L  o  0  0 


<~»  o  r>  (i  o 


SUBROUTINE  P  R  I  5  C  L  SUTRA  -  VERSION  12  =  4-20  LlO.. 

IF(ISSCL0.GT.3)  GOTO  700  L610. 

WRITE (6/65C)  (I/?VEC(I)/I=1/NN)  L62C. 

6  5  C  FORMAT (///I  1 X,  ’?  R  E  S  S  U  R  E * / / S X / 6 ( *  NO  0 E * *  1  7X )  /  L63C. 

1  (7X,6(1X/I4/1X,1PC15.S))>  L64Q. 

Ic(lUNSAT.NE.O)  WRITE (6/451  )  (I/SW(I)/I=1/NN)  L550. 

651  FORMAT (///I  IX/ * S  ATURATIO  N * / / £ X/ 6 ( ' NOC E  '  / 1 7 X ) /  L660. 

1  (7X/6(1X/I4/1X/1PD15.£)))  L670. 

IFUVEL.EQ.1 . ANO.  IT.GT.O)  WRITE(  6/655)  ( L /  VM AG ( L ) / L  =  1 / N E )  L65C. 

IF U V  EL . EQ. 1 . AND.  IT.GT  .0)  WRITE!  6/  656)  (  L/ V ANG ( L ) / L  =  1 / NE )  L690  . 

655  F0RMATC///11X/'F  LUID  VELOCIT  'i’ll  L700. 

1  IIX/'M  AGNITUDE  AT  CENTROID  OF  ELEMENT'//  L71C. 

2  5X/6('ELEMENT'/14X)/(7X/6(1X/I4/1X/1PC15.3)))  1720. 

656  FORMAT (///11X/ ' F  LUID  VELOCIT  Y'//  L730. 

1  1 1 X / ' A  N  G  L  E  IN  DEGREES  FROM  +X-AXIS  TO  FLOW  DIRECTION  '/  L74C. 

2  'AT  CENTROID  OF  ELEMENT'//  L750. 

3  5X/6('ELcMENT'/14X)/(7X/6(lX/I4/1X/1P015.3>>>  L76C. 

GOTO  700  L7 70 . 

C  L780. 

C . OUTPUT  PRESSURES  FOR  STEAOY-STATE  FLOW  SOLUTION  L790. 

630  WRIT£(6/690)  ( I / P V E C < I ) / I = 1 / NN >  LEOO. 

o9G  FORMAT (///II X  /  '$  TEADY-STATE  PRE  S'/LSIO. 

1  '  S  U  R  E'//8X/6( *NCDE'/17X)/ (7X/6C1 X/  I4/1X/1 P015.S) ) )  L520. 

IF(IUNSAT.NE.O)  WRITE(6/651)  (  I / S W ( I ) , I  =  1 / NN )  LS30. 

GOTO  1000  L  3  40 . 

L  3  50 . 

....OUTPUT  CONCENTRATIONS  OR  TEMPERATURES  FOR  L560. 

TRANSIENT  TRANSPORT  SOLUTION  L373. 

70C  IF(ml.EQ.I.AND.ISTOP.GE.O)  GOTO  10C0  L  3  30 . 

IF(ME)  720/720/730  L390  . 

720  WRITE (6/725)  ( I / U VEC ( I ) / I =1 / NN )  L900. 

725  F0RMAT(///11 </ 'C  0NC6NTRATI0  N'//8Xz  L91C. 

1  6('NODE'/17X)/(7X/6(1X/I4/1X/1P015.8)))  L920. 

GOTO  900  L 9 30 . 

730  WRITE (6/735)  ( I / U V EC ( I ) / I  =  1 / NN)  L940. 

735  F0RMAT(///1 1 X/ 'T  EMPERATUR  E ' / / 3X / 6 (  '  NOD E  ' / 1 7X ) / L 9 5 0  . 
1  (7X/60X/I4/1X/F15.9)))  L960. 

GOTO  900  L  97 0 . 

L  9  30 . 

....OUTPUT  CONCENTRATIONS  OR  TEMPERATURES  FOR  L990. 

STEADY-STATE  TRANSPORT  SOLUTION  L1CCC 

600  IF(ME)  320/320/830  L101C 

320  WRITE (6/325)  ( I/UVEC ( I > / 1=1 /NN)  L1C2C 

6  2  5  FORMAT (///1 1 X/'S  TEADY-STATE  CONC'/  L103C 

1  'ENTRATIO  N'//3X/6('NOCE'/17X)/  L1C4C 

2  (7X/6(1X/U/1X/1P015.3)))  L105C 

GOTO  900  L106C 

8  30  wRITE(6/335)  (  I / U V E C ( I ) / I  =  1 / NN)  L1C7C 

335  FORMAT (///I  IX/ 'S  TEAOT-STATE  TEMP'/  L108C 

1  '  E  R  A  T  U  R  E'//3X/6('N0DE'/17X)/  L109C 

2  (7X/6(1X/I4/1 X/F15.9)))  L110C 

C  L1110 

C . OUTPUT  VELOCITIES  FOR  STEAOY-STATE  FLOW  SOLUTION  L1120 

900  IF(ISSFL0.NE.2.0R.IT.NE.1.CR.KVEL.NE.1)  GOTO  10.00  L1130 

W  R I T  E (  6/925)  (L/VMAG(L)/L=1/NE)  L1140 

WRITct  6/950)  (L/VANG(L)/L=1/NE)  L 1  1  5  0 

925  FORMAT (///I  1 X/ 'S  TEAOY-STATE  '/  L116C 

1  'FLUID  VELOCIT  Y '//  L117C 

2  11X/'M  AGNITUDE  AT  CENTROIO  OF  ELEMENT'//  L113C 

3  5</6('ELcMENT'/HX)/(7X/6(lX/I4/lX/1PD15.8)))  L119C 

9  5  C  FORM A  T ( / // 1 1 X/ ' S  TEAOY-STATE  '/  L120C 


subroutine 


p  r  i  s  o  l 


SUTRA 


VERSION  1284-20  L 1 0 


1  *  c  L  U  I  0  VELCCIT  Y'//  L 1  2 1 0 

2  1  1 X / *  A  N  3  L  E  IV  OESREES  FROM  ♦X-AXIS  TO  FLOW  DIRECTION  ',  11220 

3  'AT  CENTROID  OF  ELEMENT'//  11230 

4  5X,6( 'ELEMENT ',1  4X) / (7X,6( 1 X / 14/ 1 X,1 PD1 5 . 8) ) )  L1240 

LI  250 

1  000  RETURN  L 1 2  60 

L  1  2  70 

ENO  L 1 2  80 


*  ~  'VI 


i j3R  D JT IN; 


3  0 


SoTRA  -  u-!SIjN  U^-iO  M  1  3  , 


1 

B 

i 


» 


C  Sj3R0uTINE  ZERO  SUTRA  -  VERSION  1 2  3  4 - 2  D  M 1 Q . . 

C  M20.. 

:  *•*  PURPOSE  :  M 30 .  . 

C  *«*  TO  -ILL  AN  ARRAY  W I T  rt  A  CONSTANT  VALuE.  M40.. 

C  M  5  0  .  . 

subroutine  zeroi  a, iadim,fill)  m&o.. 

IMPLICIT  00u3l  E  PRECISION  (A--l,0-Z>  M70.. 

DIMENSION  A(IADIM)  M80.. 

C  M90  •  . 

C . FILL  ARRAY  A  RITH  VALUE  IN  VARIA3LE  'FILL'  M100. 

00  1 0  1  =  1 / IAOIM  Ml  10. 

10  am  =FILL  mi  20. 

C  Ml  30 . 

C  Ml  4  0  . 

RETURN  Ml  50. 

ENO  Ml  60 . 


I 


a 


,*  *  S 


i  t  H 


subroutine 


B  C  T  I  M  E 


SUTRA 


VERSION  1284-20  N 1 0 


C  SUBROUTINE  3  C  T  I  M  E  SUTRA  -  VERSION  1284*20 

r 

C  *•*  PURPOSE  : 

C  ***  USER-PROGRAMMED  SUBROUTINE  WHICH  ALLOWS  THE  USER  TO  SPECIFY: 

C  ***  (1)  TIME-OEPENOENT  SPECIFIED  PRESSURES  AND  T I M E *0 E P E NDE NT 

C  ***  CONCENTRATIONS  OR  TEMPERATURES  OF  INFLOWS  AT  THESE  POINTS 

C  ***  (2)  TIME-OEPENOENT  SPECIFIED  CONCENTRATIONS  OR  TEMPERATURES 

C  ***  (3)  TIME-OEPENOENT  FLUIO  SOURCES  AND  CONCENTRATIONS 

C  *“  OR  TEMPERATURES  OF  INFLOWS  AT  THESE  POINTS 

C  ***  (4)  TIME-OEPENOENT  ENERGY  OR  SOLUTE  MASS  SOURCES 

C 

subroutine  bctime(ipbc,p3C,iu3C/U3C/3IN/uin/Quin/IQS0P/IQS0u/ 
i  ipbct,iub:t/IQsopt,iqsout) 
implicit  00U3LE  PRECISION  (A-HrO-Z) 

COMMON/DIMS/  NN/NE/’NINrNBI/NB/NBHALFrNPINCH/NPBC/NUBC/ 

1  NS0P/NS0U/-N3CN 

COMMON/TIME/  OELT,TSEC*TMIN,THOUR/TOAY,TWEEK/TMONTH,TYEAR/ 

1  TMAX,DELTP,0ELTU,DLTPM1,0LTUM1/IT/ITMAX 
DIMENSION  IPBC(NBCN)yPBC(NBCN)^IUBC(NBCN)/UBC(NBCN># 

1  OIN(NN) /UIN(NN) rQUIN (NN) /IQSOP(NSOP)# IOSOU(NSOU) 

C 

C . DEFINITION  OF  REQUIRED  VARIABLES 

c . 

c  NN  =  EXACT  NUMBER  OF  NODES  IN  MESH 

C  NPBC  =  EXACT  NUMBER  OF  SPECIFIEO  PRESSURE  NODES 

C  NUBC  =  EXACT  NUM3ER  OF  SPECIFIEO  CONCENTRATION 

C  OR  TEMPERATURE  NODES 


C  IT  =  NUMBER  OF  CURRENT  TIME  STEP 

c . 

C  TSEC  =  TIME  AT  END  OF  CURRENT  TIME  STEP  IN  SECONDS 

C  TMIN  =  TIME  AT  ENO  OF  CURRENT  TIME  STEP  IN  MINUTES 

C  THOUR  =  TIME  AT  END  OF  CURRENT  TIME  STEP  IN  HOURS 

C  TOAY  =  TIME  AT  ENO  OF  CURRENT  TIME  STEP  IN  DAYS 

C  TWEEK  =  TIME  AT  END  OF  CURRENT  TIME  STEP  IN  WEEKS 

C  TMONTH  =  TIME  AT  ENO  OF  CURRENT  TIME  STEP  IN  MONTHS 

C  TYEAR  =  TIME  AT  END  OF  CURRENT  TIME  STEP  IN  YEARS 

C . 

C  PBC(IP) 

c 

c  ubc(ip) 

c 

C  IPBC(IP) 

C 

c 

c . 

C  U3C( IuP)  =  SPECIFIED  CONCENTRATION  OR  TEMPERATURE  VALUE  AT 

C  IU(Th)  SPECIFIEO  CONCENTRATION  OR  TEMPERATURE  NOOE 

C  (WHERE  IUP=IU*NPSC> 

C  IUBC(IUP)  =  ACTuA.  NODE  NUMBER  OF  IU(TH)  SPECIFIED  CONCENTRATION 

C  OR  TEMPERATURE'  NOOE  (WHERE  IUP=IU  +  NPBC) 

C  Cwhen  NOOE  NUMBER  I  =  Iu3C(IU)  IS  NEGATIVE  (IO), 

C  A  VALUE  MjST  BE  SPECIFIEO  FOR  UBC.3 


c  ijsgp(IQP)  =  node  number  of  iqp(tm)  fuuio  source  node. 

C  CWHEN  NOOE  NUMBER  I=IQS0P(I3P)  IS  NEGATIVE  (I<0>, 

C  VALUES  MjST  3E  SPECIFIEO  FOR  QIN  AND  UIN.O 

C  3 1 N ( - 1 )  =  SPECIFIED  F  _  u I  0  SOURCE  VALUE  AT  NOOE  (-1) 

C  JIN(-I)  =  SPECIFIEO  CONCENTRATION  OR  TEMPERATjRE  vALJE  CF  ANY 

C  IN=lOw  OCCURRING  AT  FlUIO  SOURCE  NODE  (-1) 


=  SPECIFIED  PRESSURE  VALUE  AT  IP(TH)  SPECIFIED 
PRESSURE  NOOE 

=  SPECIFIED  CONCENTRATION  OR  TEMPERATURE  VAlUE  OF  ANY 
INFLOW  OCCURRING  AT  IP(TH)  SPECIFIED  PRESSURE  NODE 
=  ACTUAL  NOOE  NUM3ER  OF  IP(Th)  SPECIFIEO  PRESSURE  NODE 
CWHEN  NODE  NUM3ER  I=IP3C(IP)  IS  NEGATIVE  (I<0>, 
VALUES  MUST  BE  SPECIFIEO  FOR  PBC  AND  U3C.] 


N1 0.  .  . 
N20.  .  . 
N30.  .  . 
N40.  .  . 
N50.  .  . 
N60.  .  . 
N 70  .  .  . 
N80.  .  . 
N90.  .  . 
N 1  00  .  • 
N1 1 0.  . 
N1 20.  . 
N1 30.  . 
N1 40.  . 
N 1  5  0  .  . 
N1 60.  . 
N170.  . 
N1 80.  . 
N 1  90  . . 
N200. . 
N21 0.  . 
N220. . 
N230. . 
N2  40  .  . 
N250. . 
N2  60 .  . 
N270.  . 
N2  80  .  . 
N290.  . 
N300.  . 
N310.  . 
N320.  . 
N330.  . 
N34C.  . 
N350. . 
N360. . 
N370.  . 
N380. . 
N390. . 
N4  00 .  . 
N410.  . 
N  4  2  0  .  . 
N430.  . 
N  4  4  0  .  . 
N450.  . 
N  4  6  0  .  . 
N4 70  .  . 
N4  3  0  .  . 
N 4  90  .  . 
N500 .  . 
N51 0.  . 
N520. . 
N  5  3  0  .  . 
N  5  4  0  .  . 
N550.  . 
N  560 .  . 
N  5  7  0  •  . 
N580.  . 
N 3 90  .  . 
N  o  0  0  .  . 
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S-boutinc  3  _  r  i  m 


SuTRA  -  v  c  R  .,  I  j  N  1  2  i  ■.  -  2  0  M: 


C . N  6  1  0  .  . 

C  USQU(IOU)  =  NODE  N  u  M  3  E  R  UF  IOU(Tm)  ENERGY  OR  Nb20.. 

C  SOL  J  T  £  MASS  SOURCE  NODE  Nt>30.. 

C  CwhEN  NODE  NUMBER  I=IOSOU(IQu)  IS  NEGATIVE  (I<0>,  N  6  4  0 .  . 

C  A  VA_U£  MUST  3  E  SPECIFIED  FOR  DUIN.]  N650.. 

C  OdlN(-I)  =  SPECIFIED  ENERGY  OR  SOLUTE  MASS  SOURCE  VALUE  N660.. 

C  AT  NODE  C-I>  Nb70 .  . 

C . No  3  0  .  . 

C  No90 . . 

C  N  7  DO . . 

C . NSOPI  IS  ACTUAL  NJM3ER  OF  FlUIO  SOURCE  NODES  N710.. 

NSOPI=NSO?-1  N720.. 

C . NSOUI  IS  ACTUAL  NjMBER  OF  ENERGY  OR  SOLUTE  MASS  SOURCE  NODES  N730.. 

NSOuI  =  NSOu-1  N  7  A  0  .  • 

C  N750. . 

N  76  0 . • 
N770. . 
N780. . 
N790.. 
N800. . 

IF(IP3CT)  50,240/240  N810.. 

.  N820. • 

. - . N830  • . 

. SECTION  (1):  SET  T I M E -0 E PE  NO E N T  SPECIFIED  PRESSURES  OR  N840.. 

CONCENTRATIONS  (TEMPERATURES)  OF  INFLOWS  AT  SPECIFIED  N850.. 

PRESSURE  NODES  N860.. 

N870. . 

SO  CONTINUE  N88Q.. 

00  2  DO  IP  =  1,NP3C  N890 .  • 

I=IP3C(IP)  N900.. 

I F ( I )  100,200,200  N9 1 0 . . 

100  CONTINUE  N920. . 

C  NOTE  :  A  FLOW  ANO  TRANSPORT  SOLUTION  MUST  OCCUR  FOR  ANY  N930.. 

C  TIME  STEP  IN  WHICH  P3C (  )  CHANGES.  N940.. 

C  PBC(IP)  =  ((  ))  N950. . 

C  J  3  C ( I P )  =  ((  ))  N960. . 

200  CONTINUE  N9  70 . . 


N930. 


C  -  -  -  -  -  ------------------------  ------  N990 . . 

C  N1000. 

C  N1010. 

C  N1020. 

C  N 1  0  30 . 

C  N 1  0  4  0 . 

C  N1050. 

2  A  D  IF(IJBCT)  25D,440,440  NIOoO. 

: . M070. 

:  .  -----------  .  -----------  n i 080 . 

C . SECTION  (2):  SET  T IME-OEPENOENT  SPECIFIED  N1  090. 

C  CONCENTRATIONS  (TEMPERATURES)  N1100. 

:  nii io. 

2SD  CONTINUE  N 1 1 20 . 

DO  aDO  IU=1,NjBC  N 1 1 30 . 

IUP=IU>NP3C  N 1 140. 

I  =  Iu3C(IUP)  N 1 1 50  . 

I F ( I )  300,400,400  NlloO. 

300  CONTINUE  N 1 1 70 . 

C  NOTE  :  A  TRANSPORT  SOLUTION  MjST  OCCUR  FOR  ANY  TIME  STEP  N1180. 

C  IN  WHICH  U3C (  )  CHANGES.  IN  ADDITION,  IF  FLUID  PROPERTIES  N1190. 

C  ARE  SENSITIVE  TO  *u'  THEN  A  FLOW  SOLUTION  MUST  OCCUR  AS  WELN1200. 


3  SO 


o  o  o  o  o  o  o  o  o  o  o  o  ooonoooo  o  o  o  o  o  o  o  «  »  o  o  o  oooo 


c  subroutine  9  :  t  i  m  e  Sutra  -  version  1284-20  nio... 


c  uacduP)  =  ((  ))  N1210, 

400  CONTINUE  N1220. 

C  -  -------  .  .  N 1 230. 

mi  2  40. 

C  N  1  2  5  0  . 

C  N 1 260 . 

N1 270. 
N1 280. 
N 1  2  90 . 
N 1 300. 

440  IFCI3S0PT)  450,640,640  N 1 310. 

mi  320 . 

. - . .  "  -  . . - . -  -  N 1  3  30. 

....SECTION  (3):  SET  T I M E -0 E P E N 0E N T  FLUlO  S Ou R C E S / S I NK S ,  N1340, 

OR  CONCENTRATIONS  (TEMPERATURES)  OF  SOURCE  FLUID  N 1 350. 

N 1 360, 

450  CONTINUE  N 1 370, 

00  600  IQP=1,NS0PI  N1380, 

I=IQS0P(I0P)  N 1 390 , 

I F ( I )  500,600,600  N 1 400, 

500  CONTINUE  N 1 4 1 0 , 

NOTE  :  A  FLOW  AN0  TRANSPORT  SOLUTION  MUST  0CCJR  FOR  ANY  N1420, 

TIME  STEP  IN  WHICH  0 1 N (  )  CHANGES.  N1  430, 

QIN(-I)  =  ((  ))  N 1  4  40 , 

NOTE  :  A  TRANSPORT  SOLUTION  MUST  OCCUR  FOR  ANY  N1450, 

TIME  STEP  IN  WHICH  UIN(  )  CHANGES.  N1460, 

UIN(-I)  =  ((  ))  N1470, 

600  CONTINUE  N1480, 


N1490. 
N1 500, 
N1 510, 
N1 520. 
N1 530. 
N1 540. 
N1 550, 
N1 560, 


640  IF(IOSOuT)  650,840,840  N1570, 

___________________________________  N1580i 

Ml  5  9  0, 

....SECTION  <  4 ) :  SET  T I  ME -D E PE N DE N T  SOU RC E S / S I NK S  N1  600, 

OF  SOLUTE  MASS  OR  ENERGY  N1610, 

N1  620, 

650  CONTINUE  N163C, 

00  800  I  Q  J  =  1 , N S OU I  N 1  6  4  0, 

I=I3S0U(I0U)  N 1 650, 

I  F  ( I  )  700,  800,300  N 1  6  60, 

700  CONTINUE  N 1 6  7  0 

NOTE  :  A  TRANSPORT  SOLUTION  MJST  OCCUR  FOR  ANY  N1680, 

TIME  STEP  IN  WHICH  Q u I N (  )  CHANGES.  N1690 

OJIN(-I)  =  <(  ))  N 1 700 

300  CONTINUE  N 1 7 1 0 . 


N1  720 
N 1  730 
N1  7*0 
N1 750, 
N  1  7  6  0 

C  N 1 7  70 

C  N 1 780 

C  N 1 790, 

340  CuNTlNUE  N 1 300 


3  51 


SUBROUTINE 


ADSORB 


SUTRA 


VERSION  1284-2D  010 


SUBROUTINE  ADSORB  SUTRA  -  VERSION  128<*~2D  010. 

020. 

»**  purpose  :  oso. 

***  TO  CALCULATE  VALUES  OF  EQUILIBRIUM  SORPTION  PARAMETERS  FOR  040. 

*•*  LINEAR/  FREJNOLICH,  ANO  LANGMUIR  MODELS.  050. 

060. 

subroutine  adsor3(Cs1/CS2/CS3/SL/SR/U)  070. 

IMPLICIT  DOUBLE  PRECISION  (A-rt/O-2)  080. 

CmARACTER*1U  ADSMOO  090. 

COMmOn/MODSOR/  AOSMOO  0100 

COMMON/OIMS/  NN/NE/NIN/NSI/N3/NBHALF/NPINCH/NPBC/NUBC/  0110 

i  nsop/NSOu/nbcn  0120 

COMMON/ PAR  AMS/  COMPEL / COMPMA / DRhDu/ C W/ C S/RHOS/ DECAY /SIGMAW/ SIGMAS/ 01 30 
1  RMOWO/URHO AO/ VI  SCO/ PR0DF1  , PR0DS1 / PR00F0/ PR0DS0/CMI1 /CHI  2  0140 

DIMENSION  CS1 CNN) /C S2 (NN) /CS3CNN ) /SL (NN) /SR  CNN) /U CNN)  0150 

01  60 

....NOTE  THAT  THE  CONCENTRATION  OF  ADSORBATE/  CSCI)/  IS  GIVEN  6Y:  0170 

CSCI)  =  SL(I)*U(I)  ♦  SRCI)  0180 

0190 

....NO  SORPTION  0200 

IF( AOSMOO. NE. 'NONE  ')  GOTO  450  0210 

DO  250  I  =  1 / N N  0220 

CS1 ( I ) =0 . DO  0230 

CS2C I)=0.00  0240 

C  S3 ( I ) =0 . DO  0250 

SL(I)=O.DO  0260 

SR(I)=O.DO  0270 

250  CONTINUE  0280 

GOTO  2000  0290 

0300 

....LINEAR  SORPTION  MODEL  0310 

450  IF (AOSMOO. NE . 'LINEAR  ')  GOTO  700  0320 

DO  500  I=1/NN  0330 

CS1  (  I)=CHl1*RriOwO  0340 

CS2(I)=0.QQ  0350 

CS3(I)=Q.OO  0360 

S L  <  I )  =C H 1 1  * R M 0 'R 0  0370 

SR(I)=O.DO  0380 

500  CONTINUE  0390 

GOTO  2000  0400 

0410 

- - cREUNOL ICh  SORPTION  MODEL  0420 

7 JO  IF(AOSMOO.NE.'FREJNDLICH')  goto  950  0<*30 

ChCh=ChI1 /ChI2  0440 

DCHI2=1 .D0/CHI2  0450 

Rh2=RhOW0**DChI2  0460 

ChI2F  =  ( C 1 .DO-CHI  2) /CHI  2)  0470 

Ch12=ChI1**DChI2  0480 

DO  750  I  =  1 / N  N  0490 

IF(jCI))  720/720/730  0500 

720  JChsI.OOO  0510 

GOTO  740  0520 

730  UCH  =  j( I) *  *  C  h I  2  c  05  30 

7,0  RU=RM2*uCh  0540 

C  S 1  ( I >=CHCM»Ru  0550 

CS2(I)=0.00  0560 

C i 3  C I ) =0 . DO  0570 

SL C I ) =Crt1 2*RU  0580 

SR(I>=0.00  0590 

75  0  CONT INUE  Oo  00 


SUBROUTINE 


N  0  0  A  L  3 


SUTRA  -  VERSION  1284-20  T10.. 


subroutine 


N  0  0  A  L  3 


SUTRA  -  VERSION  1284-2D 


PURPOSE  : 

(1)  TO  CARRY  out  All  CELLWISE  CALCULATIONS  ANO  TO  ADO  CELLWISE 
TERMS  TO  THE  Gl03Al  3  A  N  0  c  0  MATRIX  AND  GLOBAL  VECTOR  FOR 
BOTH  FLOW  ANO  TRANSPORT  EQUATIONS. 

(2)  TO  ADO  FlUIO  SOURCE  AND  SOLUTE  MASS  OR  ENERGY  SOURCE  TERMS 
TO  THE  MATRIX  EQUATIONS. 

SUBROUTINE  NOOAL3CML,VOl,PMAT,PVEC,UMAT,UVEC, PITER, UITER,PM1,UM1, 
1  UM2,POR,QIN,UlN,QUIN,CS1,CS2,CS3,SL,SR,Sw,DSWDP,RHO,SOP) 
IMPLICIT  D0U3LE  PRECISION  (A--»,0“Z) 

COMMON/OIMS/  NN,NE,NlN,N3I,N8,N3HALF,NPINCH,NPBC,NU3C, 

1  NSOP,NSOU,NBCN 

COMMON/ TIME/  OELT,TSE:,TMIN,ThOUR,TOAY,TWEEK,TMONTH,TYEAR, 

1  TMAX,OELTP,OELTU,DlTPM1,DLTUM1,IT,ITMAX 
COMMON/PARAMS/  COM PFL,COMPMA,ORwDU,CW,CS,RHOS, DECAY, SIGMAW, SIGMAS 
1  R-tOWO/URHOwO/VISCO,PROQF1,PROQS1,PROQFO/PRDDSO/CHl1,CHI2 
COMMON/SATPAR/  PCENT,SWRES,PCRES,SSLOPE,SINCPT 
COMMON /CONTRL/  GNU,UP,DTMJLT,OTMAX,ME,ISSFLO,ISSTRA,ITCYC, 

1  NPCYC,NUCYC,NRRINT,IREAO,ISTORE,NOuMAT,IUNSAT 
DIMENSION  V0L<NN>,PMAT(NN,N3I),PVEC(NN>,UMAT(NN,NBI),UV£CCNN> 
DIMENSION  PIT£R(NN),UITER(NN),PM1(NN),UM1(NN>,UM2(NN>, 

1  P0R(NN),QIN<NN>,UIN<NN),QUIN<NN>,CS1(NN>,CS2(NN),CS3(NN), 

2  sl(nn),sr(nn),sw(nn),rho(nn),dswqp(nn),sop(nn) 


IFCIUNSAT.NE.O)  IUNSAT=1 

,00  NOT  UPDATE  NODAL  PARAMETERS  ON  A  TIME  STEP  WHEN  ONLY  U  IS 
SOLVED  FOR  BY  BAC<  SUBSTITUTION  (IE:  WHEN  N0UMAT=1> 
IF(NOUMAT)  50x50,200 

.SET  JNSATuRATED  FlOW  PARAMETERS  AT  NODES,  Sw(I)  AND  DSWDP(I) 
00  1  20  1  =  1  , NN 
IF(IUNSAT-I)  120,100,120 
IF(PITERd))  110,120,120 

CALL  UNSAT(SW(I),OSWD?(I),RELK,PITER(I)) 

CONTINUE 

, s £ t  fluid  density  at  nodes,  rho<i) 

RHO  =  F  (UITER(I)) 

00  150  1=1, NN 

RhO(I)=RHOWO+ORwDu*(UITER(I)-uRhOwO) 

CONTINUE 

00  1300  1=1, NN 
SwRHDN=SW(I)*RHO(I) 

IF(Ml-I)  220,220,230 


.CALCJlATE  CELLWISE  TERMS  for  P  EQUATION 

. c  0  R  STEADY-STATE  :LOW,  ;SScL0  =  2;  =0R  TRANSIENT  FLOW,  ISS  =  L0=3 

!  AFLN=(1-ISSFL0/2>* 

1  (SwRhON*SOP(I)»PORCI)«RhO(I)»OjwD=(I))*VOL(I)/OElTP 
CFLN=POR(I)»S»(I)*j6wOU*VOL(I) 

OUOT  =  (1-ISSFLO/2)*(jMl(I)-UM2(I))/OLTv,Mi 
CFLN=CFlN»OuOT 

.ADO  ItLLWlSc  T  E  R  u  S  AND  FljID  SOURCES  OR  =  «_  U  X  E  3  TO  D  EQUATION 
PMaT(I,NS-lAL:)  =  PvAT(:,fi3HiL=)  ♦  jcL:( 

P  V  E  C  (  I  )  =  P  v  r  C,  (  I  )  -  CH\  ♦  -  c  „  N  *  p  1  <  :  )  ♦  .  I  N  (  I  ) 


T  1  0.  . 
T  2  0  .  . 
T  30 .  . 
T  4  0  .  . 
T  5  0  .  . 
T60.  . 
T  7  0  .  . 
T80. . 
T9C  .  . 
T100. 
T1  10. 
T 1  2C. 
T  1  3  0  . 
T  1  4  0  . 
T1  50. 
T1  60. 
, T1 70 . 
T1  80. 
T1  90. 
T  200  . 
T  2  1  0  . 
T220. 
T230 . 
T  24  0  • 
T250. 
T260. 
T270. 
T280. 
T290. 
T300  . 
T  3 1  0  . 
T320. 
T330. 
T340. 
T350. 
T360. 
T370. 
T380. 
T  3 90 . 
T400. 
T  4  1  0  . 
T420. 
T  4  3  0  • 
T  4  4  0  . 
T  4  5  0  . 
T  4  60 . 
T  4  7  0  . 
T  4  8  0  . 
T  4  90 . 
T  5  00 . 
T  5  1  0  . 
T  5  2  G  . 
T  5  3  U  . 
T  5  4  0  • 
T  5  5  0  . 
T  5  60 . 
T  5  7  u  . 
T  5  3  0  . 
T390. 


Sj30jTINc 


0  6  4 


'  < 


$  u»  T  R  4 


VERSION  1234-20  S10 


Su9R3uTINE  G  l  0  3  4  .m  SuTRA  -  VERSION!  1  2  3  **  “  2  0  S10. 

S20. 

***  PURPOSE  :  S33. 

*•*  TO  ASSEMBLE  RESULTS  0  F  EwE.MEnThISE  INTEGRATIONS  INTO  S  4  0  . 

***  4  GLOBAL  3  4  N  0  £  D  3ATRIX  AMO  GLOBAL  VECTOR  FOR  9QTrt  S  5  0 . 

•  *  *  F  L  0  <4  A  N  0  TRANSPORT  EQUATIONS.  $60. 

S70. 

Su3R0uTINE  GL03AN(L,M._,v0LE,3FL0WE,0Fl0wE,BTRANE,0TRANE,  S80. 

1  IN,VUL,?MAT,PVEC,UMAT,UVEC)  S90. 

IMPLICIT  0  Ou  3  L  E  PRECISION  <A-rt,0-Z)  S130 

C0MM3N/0IMS/  NN,NE,NIN,N8I,NB,N3HALF,NPINCH,NP3C,.NUSC,  S  1  1  Q 

1  NSJP,NS0U,N3CN  S 1  20 

COMMO.N/CONTRL/  GNJ,UP,DTMJLT,3TMAX,ME,ISSFL0,ISSTRA,ITCYC,  SI  30 

1  N?CYC,NUCYC,NPRINT,IREA0,ISTORE,NOUMAT,IUNSAT  SI  40 

DIMENSION  3FL3R£(4,4),DFLOWE(4),3TRANE<4,4>,DTRANE(4,4),VOLE<4)  SI  50 
DIMENSION  V0L(NN),PMAT(NN,N3I),PVEC(NN),‘JMAT(NN,NBI),UVEC(NN)  S  1  60 

DIMENSION  IN(N IN)  S 1  7  0 

SI  30 

N1 = ( L - 1 )*4  +  1  SI  90 

N  4  =N 1 ♦ 3  S200 

$210 

. ...  A 00  RESULTS  OF  INTEGRATIONS  OVER  ELEMENT  L  TO  GLOBAL  S220. 

P-MATRIX  AND  P-VECTOR  S230 

IF(ML-I)  50,50,150  S240 

50  I E  =0  S 2  5 0 . 

00  1  00  II=N1,N4  S 2 60 

I c 3 1  £ ♦ 1  S270, 

I3=INCII)  S  2  80 

VOL(IB)=VOL(I3)»V3LE(IE)  S290 

PvEC(I9)=?VEC(Ib)*-0FL0WE(IE)  S300, 

JE=0  S31 0 

00  1  00  JJ  =  N1,N4  S  320  ■ 

J  E  =  J  E  ♦  1  S330. 

J6=IN( JJ)-I8>N3HAlF  S340, 

103  PMAT(I9,J6)=PMAT(I9,ja)t8FL0RE(IE,JE)  S350. 

IFCML-1)  150,300,150  S360. 

S  3 70 , 

....ADO  RESULTS  OF  INTEGRATIONS  OVER  ELEMENT  L  TO  GLOBAL  S380. 

U-MATRIX  S3  90 . 

150  IF (NOUMAT. EQ. 1 )  GOTO  300  S430, 

I E  =0  S4 1 0 . 

00  200  II=N1,N4  S420. 

I c  =  I  £  > 1  S430, 

IB=IN(II)  S440, 

C . POSITION  FOR  AOOITION  TO  U~VECTOR  S45Q, 

JVEC<IB)=UVEC<IB)»  <(  ))  S460. 

J  E  =  u  S470, 

00  200  JJ  =  N1,N4  S4  30 , 

J  E  =  J  E  ♦  1  S4  9  0  , 

J8  =  IN(  JJ)-I84-N3HAuc  S500. 

200  JMAT ( I  9 , J  3 ) =  JM  A  T ( 13, 03) ♦OTRANE ( I E  ,  J£ ) ♦3TRANE  C I  £ , J  E )  S  5 1 0 . 

S  5  20 . 

300  CONTINUE  S  5  3  0 . 

S  5  4  0 . 
S  5  5  0  . 

RETURN  S  5  60 . 

END  S 5  70 . 


Will 


o  o 


SUBROUTINE 


U  M  S  A  T 


SUTRA  -  VERSION  1284-20  RIO, 


C  COOING  MUST  SIVE  A  VA^UE  TO  DERIVATIVE  0  F  SATURATION  WITH  R  6 1 0 . 

C  RESPECT  TO  PRESSURE/  DSwDP.  R620. 

C  R  6  30 . 

600  CONTINUE  R 6 4 0 . 

r--._-__-_.-_. R650i 

DNUM=AA*(VN-1.DQ>*SwRM1*(AA*(-PRES>)**(VN-1.00)  R66Q. 

DNOM=AAPVN*A APVNN  R670. 

0  S  R  0  P  =  ONUM/ONOM  R630. 

Ro90< 

SOTO  1800  R700. 


r*****»**»*************»***«***********»************************** 

t  **»»»»**»*»*»»»»**»***»***#*»*»***»*»*»»**»*»*»***»*»»»«»**»»•»** 

.SECTION  (3): 

RELK  VS.  P/  OR  RElK  VS.  S*  (CALCULATED  ONLY  WHEN  IJNSAT=2) 
COOING  MUST  SIVE  A  VA^UE  TO  RELATIVE  PE R ME  A B I L  I T Y ,  RELK. 

)  CONTINUE 


R  7  30 . 
R  7  4  0 . 
R  7  50 . 
R  76  0 . 
R  7  70 . 
R  7  8  0 . 
*  *  R  790 . 
**R800. 
R  8 1  0 . 
R  8  20 . 
R  3  30  ■ 
R840. 
R  8  5  0 . 


GENERAL  RELATIVE  PERMEABILITY  MODEL  FROM  VAN  G E NUC H T E N ( 1 980 )  R87Q. 

SWSTAR= (SW-SWRES)/SWRM1  R830. 

RELK  =  OSORT(SWSTAR)*  R890. 

1  <1 . D0-(1 . 00-SWSTAR**( 1 . DO/ VNF) ) **( VNF) ) **2.00  R900. 


C  *  *  *  * 

c  *  »  *  * 


R920 . 

.»*****»**»***«.*»»**». »»*.**»****»***********»»*<►. ***.*»**»«. *..**9930. 

•****»*************************************************************p940. 

R  9  5  0 . 
R960 . 
R  9  7  0 . 
R930. 
R990. 
R1  000 

RETURN  R 1 0 1 0 

R1  020 

END  R 1 0  30 


s  m  r 


ijUS 


V  cR  ION  1 j  R  1  J 


in/i'v  J  jT  I  Nc 


S J3R DuT IN£ 


U  N 


SuTRA 


VERSION  1 284-23 


*»*  PuRPOSE  : 

***  USE R-PROGRAMMEO  SU8R3UTINE  GIVING: 

*•*  (i)  saturation  as  a  function  o=  pressure  (  sw(?res>  > 

***  (2)  DERIVATIVE  of  SATURATION  WITH  respect  to  pressure 

*«*  AS  A  FUNCTION  of  either  pressure  or  saturation 

***  (  DSWOP(PRES)/  OR  DSWQP(SW)  > 

***  (3)  relative  permeability  as  a  function  of  either 

*  *  *  “RESSuRE  OR  SATURATION  (  REl(PRES)  OR  R  E  L  K<  S  W )  ) 

»  *  » 

***  COO  E  BETWEEN  DASHED  LINES  MUST  3E  REPLACED  TO  GIVE  THE 
*•*  PARTICULAR  UN  SATURATED  RELATIONSHIPS  DESIRED. 

subroutine  unsatcsw/DSwop/RElk/PRES) 

IMPLICIT  DOUBLE  PRECISION  (A-H/O-Z) 

COMMON/ CONTRL/  GNU/JP/DTMJLT/OTMAX/ME/ISSFLO/ISSTRA/ITCYC/ 
1  NPCYC/NUCYC/NPRInT/IREAD/ISTORE/NOUMAT/IUNSAT 


three  parameters  =or  unsaturateo  flow  relationships  of 
VAN  GENUCHTENU  933) 

RESIDUAL  SATURATION/  SwRES/  GIVEN  IN  UNITS  [L**OJ 
PARAMETER/  AA/  GIVEN  IN  INVERSE  PRESSURE  UNITS  Cm*  (s**2) /kg] 
PARAMETER/  VN/  GIVEN  IN  UNITS  CL**0] 

DATA  SWRES/O. 3000//  AA/5.30-5//  VN/2.0D0/ 


.  *  *  * 
»  *  * 


A******************************************************************* 

A******************************************************************* 


SECTION  (1): 

S  n  VS.  PRES  ( V  A  w  u  E  CALCULATED  ON  EACH  CALL  TO  UNSAT) 
COOING  MUST  GIVE  4  VA.UE  TO  SATURATION/  Sw. 


THREE  PARAMETER  MODEL  OF  VAN  GE NUCHT E N ( 1 980 ) 

SwRMl=1.00-SWRES 

aapvn=i.oq+<aa*(-preS))**vn 

V  NF= ( VN- 1 . DO) / VN 

1APVNN=AAPVN**VNF 

S  W  -  S  w  R  E  S  *  S  W  R  M  1  /  A  A  P  V  N  N 


•  .I*******************************************************************' 


IrtlUN SAT-2)  o?3/1200/18Q0 

.  SECTION  (2): 

DSWu3  vs.  PRES/  OR  u  S « 0  P  VS.  SW  (CAwCu_ATED  ONLY  WHEN  IuN5AT=l) 


RIO... 
R20. . . 
R  33. .  • 
R40. . . 
R  5  0 . .  . 
R  6  0  .  .  • 
R  7  3 .  .  . 
R80 .  . . 
R  9  0 .  .  . 
R1  00.  . 
R11  0.  . 
5120.. 
R1 30. . 
R1 40.  . 
R  1  5  0  .  . 
R1 60.  . 
R1  70.  . 
R1 80.  . 
R 1  90  .  . 
R200.  . 
R21 0 .  . 
R220. . 
R230. . 
R 2 40 .  • 
R2S0. . 
R260. . 
R270. . 
R280.  . 
R290.  . 
R300.  . 
R  3 1  0  .  . 
R  3  2  0  .  . 
R 3 30 . . 
R 34 0  .  . 
R  3  5  0 .  . 
R360.  . 
R  370 .  . 
R 380 .  . 
R393. . 
R400. . 
R41 0.  . 
R420.  . 
R430.  . 
R  a  4  0  •  . 
R450.  . 
R  4  6  0  .  • 
R  4  7  u  .  . 
R4  30 .  . 
R  4  9  0  .  . 
R  500 .  . 
R5 1 0.  . 
R  5  2  3  .  . 
R5  30.  . 
R  5  40  .  . 
R  5  5  0  .  . 
R 5 60 .  . 
R  5  7  0  .  . 
R  5  3  0  .  . 
R  3  9  0  .  . 
R  ©  3  0  •  • 


or>  n  o  o  o  o  oooo  n  o 


SUBROUTINE 


8  A  S  I  S  2 


Sutra 


VERSION  1284-20  Q10 


. ASYMMETRIC  FJNCTIDNS  SIMPLIFY  WHEN  UP=0.0 

IF(UP.GT. 1.03-6. AND. NDUMAT.E3.0)  GOTO  179Q 
00  1760  1=1/4 
wen  =f(i> 

OwOxS(I)=DFDXi(I) 

OwOYGCI)=OFOYG(I) 

1730  CONTINUE 

. RETURN  WHEN  ONLY  SYMMETRIC  WEIGHTING  FUNCTIONS  ARE  USED 

RETURN 

. CALCJLATE  c  L 1 J  I  0  VELOCITIES  WITH  RESPECT  TO  LOCAL  COORDINATES/ 

.  V  X  L /  VYL/  AND  VLMAG/  AT  THIS  LOCATION/  (XLOC/YlOC). 

1790  VXL=CI J1 1 *VXG*CI J21 *VYG 
vyl=:iji2*vxg+cij22*vyg 
vlmas=osqrt(vxl*vxl*vyl*vyl) 

A  A  =  0 . 0D0 
33=0. ODO 

IF(VLMAG)  1900/1900/1300 
1300  AA=UP*VXL/ VLMAG 
BB=UP*VYL/ vlmag 

1900  XIXI=.75000*AA*XF1*xF2 
YIYI=.75000*33*YF1*yf2 
DO  2000  1=1/4 

AFX(I)=.5000*FXCI)+XIIX(I)*XIXI 
2000  AFY<I)=.5300*FV(I>+YIIY<I)*YIYI 

. CALCULATE  ASYMMETRIC  WEIGHTING  FUNCTION/  W. 

DO  3000  1=1/4 
3000  W(I)=AFX(I>*AFY(I) 

THAAX=0. 5000-1 .5000*AA*XLDC 
THBBY=0. 5000-1 .5 000*83 *YL0C 
00  4000  1=1/4 
XDW(I)=XIIX(I)*THAAX 
4000  YDW(I)=YIIY(I)*TH3BY 

. CALCJLATE  DERIVATIVES  WITH  RESPECT  TO  LOCAL  COORDINATES. 

00  5000  1=1/4 
OwDx^(I)=XDw(I)*AFY(I) 

5000  OwOY- C I ) =YDw C  I ) *A  =  X (  I) 

C 

C . CALCJLATE  DERIVATIVES  WITH  RESPECT  TO  GlO&AL  COORDINATES. 

DO  6000  1=1,4 

OwDxGCI)=ClJl1*DwOXL(I)*CIJ12*DwDYL(i) 

600  0  D«0YG(I)=C:j21*DWJXl(I)*CU22*DwDYL  (I) 

c 


01 81 0. . 
Q 1  320.  . 
Q 1  8  30  .  . 
Q 1  840.  . 
01850.. 
21860.. 

21370.. 

21880.. 
21  890. . 
Q 1  900.  . 
01910.  . 
01920.  . 
01  930. . 
01940.. 
01  950.  . 
01960.. 
01970.. 
01980.  . 
01990.  . 
22000.  . 
Q 20 1  0 .  . 
Q2020. . 
02030.  . 
02040.  . 
02050.  . 
02060 .  . 
02070.. 
02080.  . 
02090. . 
02100.. 
Q21 10.  . 
Q21 20.  . 
02130.. 
Q2140. . 
02150.. 
021 60. . 
02170.. 
02180.. 
02190.  . 
02200. . 
Q2210.  . 
02220.  . 
02230.  . 
02240  .  . 
02250.  . 
02260  .  . 
02270.  . 
02280.  . 
C2290  .  . 
02  300.  . 
02310.. 
02320  .  . 


RETJRN 

END 


,5k  Dv,  T  1  •«; 


RA  -  VERSION  1234-23  313, 


DPDX  G  =  0. 30 
OPOY  3  =  3.3  3 
PQP3=3.33 
TiICK3=3. 333 
33  1330  Il=1,4 
I  I  =  < --1 ) *4  ♦  It 
I  =  I  n  ( 1 1 ) 

3POX3=OP3xG»3VEL(I)«3rOxG(lL) 

DP3YG=0PDYGhpvEl(I)*DF0YG(IL) 

P0RS=P0RG+P0R ( I  )  *  - ( IL  ) 

T.hIC<G  =  THIC*G*ThI;K(I)*F(IL) 

3ITcP3=PITESG*PITER(I)*F(IL) 

UIT£RG  =  UITERGh-UITER(I)*F(IL) 

CONT  I  .M  U  c 

.SET  VALUES  FOR  DENSITY  AN3  VISCOSITY 
,  ?rtOu  =  FUNCT ION ( JITcR) 

RhOG  =  RHOWQ«-ORWDU*<UITERG-uRhOwO) 

,  v i sc  g  =  function! jiter) 

VISCOSITY  IN  UNITS  OF  VISCD*<KG/<M*SEC>> 

IF(ME)  1 300, 1 300/ 1 200 

VISCG  =  VISCO«239.4D-7*<1O.D0**(248.37DQ/(UITER&«-133.15DO)>> 
GOTO  1400 

, p  OR  SOLUTE  TRANSPORT...  VISCG  IS  TAKEN  TO  BE  CONSTANT 
VISCG=VISCO 
CONTINUE 

.set  JNSATURATEO  F.Ow  PARAMETERS  SWG  ANO  RELKG 
IFCIJNSAT-2)  1 603/ 1503x1 600 
IF(PITERG)  1550/1 500/ 1 600 
CALL  UN SATISWG/DSrDPG, RELKG, PITERG) 

GOTO  1700 
S  wG  =  1 .000 
R  EL  K  G  =  1 .030 
CONTINUE 

.CALCJLATE  CONSISTENT  FLUIO  VELOCITIES  WITH  RESPECT  TO  GLOBAL 
COORDINATES/  VxG/  VYG/  ANO  V  GM AG/  AT  THIS  LOCATION/  (XLOC/ 
OENOM=1.00/(PORG*SWG*VISCG) 

PGX= JP0XG-RGXGM1 
PGY=OPOYG~RGYGM1 

.ZERO  OUT  RANDOM  30UYANT  ORlVlNG  FORCES  DUE  TO  OIFFERENC ING 
.  NUMBERS  PAST  PRECISION  LIMIT 

.  MINIMUM  DRIVING  =0RCE  IS  1.0-10  OF  PRESSURE  GRADIENT 

,  (this  value  may  3 e  Changed  depending  on  machine  precision) 
IF(OPOXG)  1  720/  1  730,1  720 

IF ( JA3S (PGX/0P3XG) -1 . 3D-1 3)  1725/1725/1730 
pGX=3.300 

IF(OPOYG)  1  750/  1  7b0, 1 750 

IF(0A8S(PGY/0PDYG)-1. 30-13)  1755/1755/1760 
pjY=3.000 

VAG=-DENOM*(PERMXX(L)»PGX>P£RMXY(L)*PGY)»RELXG 

vy:.  =  -oe,nom»(permyx(l)»pg<»pepmyy(l)*pgy)*relxg 

VxG2=vxg*vXj 

VY32=VYG*VYG 

VGMA3  =  0S3RTCVX32t,vYG2) 

.AT  THIS  POINT  IN  .OCA.  COORDINATES/  (xlOC/YlOC), 

»  CALCULATE  ASYMMETRIC  WEIGHTING  FUNCTIONS/  w(I), 

A  NO  SPACE  OERIVArIv£S/  DrDxG(I)  ANO  QwJYC(I). 


01210 
Q1  220 
01230 
31  240 
31250 
31260 
31270 
01  280 
<31  290 
31300 
31310 
31320 
31  330 
31  340 
31350 
31  360 
31  370 
31380 
<31  390 
Q1400 
31410 
01420 
Q1430 
Q1440 
01450 
<31  460 
01470 
<31  480 
Q1490 
<31  500 
Q 1  5  1  0 
31520 
31530 
31540 
Q 1  5  5  0 
31560 
31570 
YLOOQ1  580 
01  590 
01600 
Q  1  6 1  0 
Q 1  6  2  0 
01630 
Q1  640 
01650 
01660 
31  670 
31680 
31690 
31700 
31710 
31720 
31730 
31  740 
31750 
317*0 
31770 
31  780 
31  790 
31800 


or'io  r-i  o  n  o  r>  o 


SUBROUTINE 


B  A  S  I  S  2 


SUTRA 


VERSION  1264-20  CIO.. 


C 

C . CALCULATE  ELEMENTS  OF  JACOBIAN  MATRIX/  CJ. 

CJ1 1=0. DO 
C J1 2=0.00 
C J21 =0.00 
C J22=0.D0 
00  100  IL=1,4 
1 1= (L-1 ) *4+IL 
I=IN(II) 

CJl 1=CJ1 1+CFQXL(  IL) *  X  (  I ) 

CJ12=CJ12*CFDXL(IL>*Y(I) 

CJ21=CJ21+0FQYL(IL>«X(I> 

ICC  CJ22  =  CJ220FDYL(IL> *Y(I) 

C 

C . CALCULATE  DETERMINANT  OF  JACOBIAN  MATRIX. 

0  ET  =  C  Jl 1 *C J22-CJ21 *CJ1 2 
C 

C . RETURN  TO  ELSMEN  WITH  JACOBIAN  MATRIX  ON  FIRST  TIME  STEP. 

IF(ICALL.EQ.O)  RETURN 
C 

C . CALCULATE  elements  OF  INVERSE  JACOBIAN  MATRIX/  CIJ. 

OOE  T  =  1  .OG/OET 
CIJ1 1 =*03ET*CJ22 
CIJ1 2=-006T*CJl 2 
CIJ21 =-0DET*CJ21 
CIJ22=>OOET*CJ11 
C 

C . CALCULATE  DERIVATIVES  UITH  RESPECT  TO  GLOEAL  COORDINATES 

00  200  1=1/4 

0F0XG(I)=CIJl1*0FDXL(I)'fCIJl2*CF0YLCI) 

200  0F0YG(I)=CIJ21*CF0XL<I)*CIJ22*CF0YL(I) 

....CALCULATE  CONSISTENT  COMPONENTS  OF  (RhO*GRAV)  TERM  IN  LOCAL 
COORDINATES  AT  THIS  LOCATION/  (XLOC/YLCC) 

RGXL=0.00 
RGYL=0. 00 
RGXLM1 =0.00 
RGYLM1 =0.00 
00  300  I  L  =  1 / 4 
II=<L-1)*4*IL 
I  =  IN(  II) 

A0F0XL  =  0ABS(0F0XLCIL)  ) 

ADF0VL=0AeS(0F0YL(lL)) 

RGXL=3G<L+RCIT<I)«GXSI(L/IL)*ADF0XL 
RGYL=RGYL+RCIT(I)*GETA(L/IL)*ACFOYL 
RGXLM1=RGXLM1+RCITM1(I)*GXSI(L/IL)*A0P0XL 
RGYLM1=RGYLM1^RCITM1(I)»GETA(L/Il)«ADFDYL 
300  CONTINUE 

....TRANSFORM  CONSISTENT  COMPONENTS  OF  <RhO*GRAV>  TERM  TO 
GLOBAL  COORDINATES 
RGXG=CIJ11*RGXL*CIJ12«RGYL 
RGYG=CIJ21*RGXL*CIj22*RGYL 
RGXGM1=CIJ11«RGXLM1+CIJ12*RGYLM1 
RGYGM1=CIJ21*RGXLM1+CIJ22*RGYLM1 

....CALCULATE  PARAMETER  VALUES  AT  THIS  LOCATION/  (XLOC/YLOC) 

?ITERG=O.OC 
UITERG=0.DC 


C610. 
C620. 
C630. 
C  6  4  C  . 
0650. 
0660. 
C670. 
C620. 
C  6  9  0  . 
5  700. 
C  7  1  0  . 
C7  20  . 
C  7  3  C  . 
C  740  . 
C  7  50 . 
C  76 0 . 
G  7  70 . 
C  7  60 . 
G  7 90 . 
G  5  00 . 
C  3  1  0  . 
C2  20  . 
5530. 
C540  . 
Q5  50. 
C36C. 
5270. 
5250. 
5290. 
C’OO. 
5910. 
5920. 
5930. 
5940. 
5  3  5  0. 
5  3  6  C  . 
5970. 
5930. 
C  990  . 
G1C0C 
5  1  C  1  C 
C 1  0  2  C 
5 1  0  3  C 
Cl  04C 
Cl  050 
Cl  06C 
Cl  C7C 
C10S0 
C109C 
51  IOC 

cine 
Q 1 1  20 
Cl  1  30 
Cl  1  4  C 
51 1  5C 
51  1  60 
51  1  7C 
51  1  SC 
51  1  90 
Cl  2CC 


Ui  I 


c 


SUBROUTINE 


B  A  S  I  S  2 


SUTRA 


VERSION  1254-20  GIO 


C  SUBROUTINE  3  A  S  I  S  2  SUTRA  -  VERSION  1254*20  CIO 

C  C  2  0 

C  PURPOSE  :  C 2 0 

C  •**  TO  CALCULATE  VALUES  OF  BASIS  AND  WEIGHTING  FUNCTIONS  AND  ThEIR  C40 

C  *•*  DERIVATIVES/  TRANSFORMATION  MATRICES  BETWEEN  LOCAL  AND  GLOBAL  C50 

C  **«  COORDINATES  AND  PARAMETER  VALUES  AT  A  SPECIFIED  POINT  IN  A  CiC 

C  ***  QUADRILATERAL  FINITE  ELEMENT.  C7C 

C  CEO 

SUBROUTINE  3ASIS2(ICALL/L/XLQC/YL0C/IN/X/T/r/W/DET/  C?0 

1  DFDXG/OFDYG/CWCXG/OWDYG/PITER/UITER/PVEL/PCR/THICK/THICKG/  CIO 

2  VXG/VYG/SwG/RHOG/VISCG/PORG/VGMAG/RELKG/  Oil 

3  PERMXX/PERMXY/PERKYX/PERMYY/CJ11/CJ12/CJ21/CJ22/  Cl  2 

4  GXSI/GETA/RCIT/RCITK1/RGXG/RGYG)  C 1  3 

IMPLICIT  C0U3LE  PRECISION  (A-H/C-Z)  C14 

CGMMON/OIMS/  NN/NE/NlN/NBI/NB/NSHALF/NPINCH/NPEC/NUBC/  CIS 

1  NS0P/NS0U/N3CN  Cl  6 

COMMON/CONTRL/  GNU/UP/CTMULT/OTMAX/ME/ISSFLO/ISSTRA/ITCYC/  C 1 7 

1  NPCYC/NUCYC/NPRINT/IREAO/ISTORE/NOUMAT/IUNSAT  CIS 

COMMON/SATPAR/  PCENT/SWRES/PCRES/SSLOPE/SINCPT  C 1 9 

COMMON/PAR  AMS/  CO MPFL/COMPMA/DRU OU/CW/CSz RHOS/DECAY/SIGMAW/ SIGMAS/ C2 0- 

1  RHOWC/URHOWO/VISCO/PRCOF1/PRODS1/PRODFO/PROCSO/CHI1/CHI2  C21 

COMMON/TENSOR/  GRAVX/GRAYY  C22' 

DOUBLE  PRECISION  XLOC/YLCC  C  2  3 

DIMENSION  IN (NIN) /X(NN)/Y CNN) /LITER  (NNj /PITER ( NN ) / P V c L ( NN ) /  C2  4 

1  POR(NN)/PERMXX(NE)/?ERMXY<NE)/PERMYX(NE)/PERMYY(NE)/THlCK(NN)  C25 

DIMENSION  GXSI <NE/4)/GETA(NE/4)/RCIT (NN)/ RCITM1 (NN)  C26 

DIMENSION  F(4)/W(4)/0FDXG(4)/0FCYG(4)/0WDXG(4)/DWDYG(4)  C  2  7 

DIMENSION  FX(4),FY(4)/AFX(4)/AFY(4)/  C2S 

1  OFOXL(4)/OFCYL(4),DwOXL(4)/OWOYL(4)/  C29 

2  X0W(4)/Y0W(4)/XIIX(4)/YIIY(4)  C  3C 

CATA  XIIX/-1 .00/ +1 . C 0/ ♦  1 .CC/~1 .CO//  C31 

1  YI I Y/-1 .D0/-1 .D0/  +  1 .00/  +  1 .DC/  C  3  2 

C  C  3  3 

C  C  3  4 

C . AT  THIS  LOCATION  IN  LOCAL  COORDINATES/  (XLCC/YLCC)/  C35 

C  CALCULATE  SYMMETRIC  WEIGHTING  FUNCTIONS/  FCI)/  C36 

C  SPACE  DERIVATIVES/  OFCXG(I)  AND  OFOYG(I)/  AND  C37 

C  DETERMINANT  OF  JACOBIAN/  OET.  C33 

C  C  3  9 

X  F 1  =  1 .DO-XLOC  C  4  0 

XF2  =  1  .DO  +  XLOC  C41 

Y  F  1  =1  . DQ-YLOC  C  4  2 

Y  F  2  =  1 .OC  +  YLOC  C43 

C  C  *  4 

C . CALCULATE  BASIS  FUNCTION/  F.  C45 

FX(1  5  —  X  F 1  C  4  5 

FXC2)=XF2  C  4  7 

F  X  (  3  )  =  XF2  C  4  S 

FX(4) =  X  F  1  C  4  9 

FY(1)=YF1  C  5  0 

FY(2)=YF1  CS1 

F  Y<  3 ) = YF  2  C  5  2 

FY(4)=YF2  C  S  3 

DO  10  1  =  1/4  C  5  4 

10  F(I)=0.250D0*FX(I)*FY<I)  CSS 

C  C56 

C . CALCULATE  DERIVATIVES  WITH  RESPECT  TO  LOCAL  COORDINATES.  C57 

00  20  1  =  1  /4  C  5  3 

jFDXLt I)=XIIX ( I) *0. 25CCO*FY( I)  C59 

2 C  D  =  DYL(I)=YIIY(I)*C.  250C0*FX(I)  C 6 0 


SUBROUTINE 


SUTRA  -  VERSION  1284*20  P10... 


_ IN-PARALLEL  CONDUCTIVITIES  (OIFFuSIvITIES)  FORMULA 

,930  ESE=E SRCG*SIGM Aw* (1 .OQ-PORG (KG) )«RH0Cw3* SIGMAS 

. A 00  DIFFUSION  AND  DISPERSION  TERMS  TO  TOTAL  DISPERSION  TENSOR 

3XXG(KG)=ESRCGOXXG*ESE 
BXYG(KG) =ESRCG*OXYG 
BYXG(KG) =E$RCG*DYXG 
'000  BYYG(KG)=ESRCGOYYG*ESE 

. INTEGRATE  SOLUTE  MASS  BALANCE  OR  ENERGY  BALANCE 

USING  SYMMETRIC  WEIGHTING  FUNCTIONS  FOR  DISPERSION  TERM  AND 
USING  EITHER  SYMMETRIC  OR  ASYMMETRIC  WEIGHTING  FUNCTIONS 
FOR  ADVECTION  TERM 
DO  8000  1=1/4 
00  80C0  J  =  1 / 4 
8  T  =  0  «  00 
0  T  =  0 . 0  3 

00  7500  K S  =  1 / 4 

3T=BT*((3XXG(<G)*DF0XG(U/*G)*aXYS(KG>*DFDYG(U/KG>>*DFDXG(I 

1  *(BYXG(KG)*DF0XG(U/KG)*3YYG(KG)*DFDY3(U/KG))*DFDYG(I/ 

2  *OET(K&) 

7500  OT=DT+(EXG(K3)*OFOXG(J/KG)+EYG(KG)*DFOYG(J/XG)> 

1  *W(I/KG)*DET(KG) 

BTRANE(I/J)=BT 
8300  DTRANEd/ J)=OT 
9000  CONTINUE 


. SEN0  RESULTS  OF  INTEGRATIONS  FOR  THIS  ELEMENT  TO 

GLOBAL  ASSEMBLY  ROUTINE 

9999  CALL  GLOBAN(L/ML/VOLE/3FlOWE/DFLOWE/3TRANE/DTRANE/ 
1  in/vol/PmaT/PveC/UMaT/Uvec) 


RETURN 


P241 0. 
P  2  4  20 . 
P2430. 
P  24  40  . 
P2450. 
P24e0. 
P2470. 
P2480. 
P2490. 
P2500. 
P2510. 
P2520. 
P2530. 
P2540. 
P2550. 
P2560. 
P2570. 
/ KG) P2580. 
KG))P2590. 
P2600. 
P261 0. 
P2620. 
P2630. 
P2640. 
P2650. 
P2660. 
P2670. 
P  2680 . 
P2690. 
P2700. 
P2710. 

-  *  P2720. 
*  *  P2730. 

-  *  P2  74  0 . 

P2750. 
P2760. 
P2770. 
’2780. 


■>j3iOuT  I  N  c 


SuTRA  -  VERSION  1  2  3  <.  -  2  D  p  1  J  . 


DO  5400  <.6  =  1  r  * 

V  D=VO*F ( I ,KG) *DETUG) 

D  F  =  3F ♦ (  (  R  X  X  G  (KG)  *  R  G  X  0  ( KG  )  ♦RXYO(KG)  *RGYO(KG)  )  *DF0X6(  I  ,  K  6  ) 

♦  (RYXG(KG)*RGXG(KG)«-RYY6(KG)*RGYS(KG>)*DFDYG(I,kG)> 

*  D  E  T (KG) 

DO  5300  J  =  1 / 4 
8==0.D0 

OD  5600  K  G  =  1 / 4 

3F=3F*((RXXG(<G)*DFDXG(J,<G>+RXY3(KS)*DFDYG(J,KG))*0FDXG(I 
«•  (RYX3(K3)*0F3xG(J,K3)*RYYG(KG)*0FQYG<J,k6)>*DF0YG(I, 
*GET(KG) 

3=L0WE(I,J)=8F 
VOLE  <  I ) =V0 
DFLOWE(I)=DF 
CONTINUE 

IFCMl-1)  51 00x9000/6100 
IFCNOUMAT .ED.1  )  GG'D  9000 


CALCJlATE  parameters  for  energy  balance  or  solute  mass  balance 
AT  GAUSS  POINTS 
00  7000  K  G= 1 , 4 
ESWG=P0RG(KG) *SwG<KS) 

Rrt3CWG  =  RH0GUG>  *Cw 

ESRCG=£SWG*RHOCwG 

IF ( vGMAG(KG) )  6300*  5300/6600 

EXG(KG) =0. 000 

SYS(KG)=0.000 

DXXG=0.G00 

OX YG=0.000 

0 Y  XG  =  0 . 000 

OY YG=0.000 

GOTO  6900 

EXG(KG)=ESRCG*VXG<KG) 

EYG(KG) =ESRCG*VYG(KG) 

DISPERSIVITY  MOOEL  FDR  ANISOTROPIC  MEDIA 

WITH  PRINCIPAL  DISPERSIVITIES:  ALMAX,ALMIN,  AND  ATAVG 
VANGG=1 .57079632700 

IF(VX6(KG)*VXG(KG).3T.O.OO)  VANGG=DATANCVYG(KG)/VX5(KG>) 

vkangg=vangg-pangle<l) 

OCD=DCOS(VXANGG) 

OSI=DSlN(VKANGG) 

EFFECTIVE  LONGITUDINA.  DISPERSIVITY  IN  FLOW  DIRECTION,  ALEFF 
AlEF==0.000 

IF(ALMAX(L)+AlMIN(D)  6300,68  00,6700 

ALEFF=AlMAX(L)*ALMIN(L)/(ALMIN(L)*DCO*DCO+AlMAX(L)*DSI*OSI) 

OlG=Al5FF*VjMAG(KG) 

o  t  g  =  a  t  avg(l) *vgmag(xg> 

V 2  GM I  =  1 . DO/ (VGMAG(XG) *VGMAG(KG)  ) 

V2IlTG=v2GMI*(D.G-DTG) 
vx  20=vxG(K3)  *VXG(kG) 

VY2G=VYGIkG) *VY3(KG) 

DISPERSION  TENSOR 

Dxxs=v2GMI«(DlG*Vx2S<-0T6*vY2G) 

DYY6=v20MI*(0TG*Vx2S*DL3*VY2G) 

DxYG=v2ILTG»VXG(KG)*VYG(KG) 

OY  XG=DXYG 


PI  31  0 
PI  320 
PI  830 
PI  840 
PI  350 
PI  360 
PI  870 
PI  880 
,KG> PI  890 
KG) ) PI  900 
P 1  9 1  0 
PI  920 
PI  930 
PI  940 
PI  950 
PI  960 
PI  970 
PI  980 
PI  990 
P2000 
P2010 
P202(5 
P2030 
P2040 
P2050 
P2060 
P2070 
P2080 
P2090 
P2100 
P2110 
P2120 
P2130 
P2140 
P2150 
P2160 
P2170 
P21  80 
P2190 
P2200 
P2210 
P2220 
P2230 
P2240 
P2250 
P2260 
P2270 
P2280 
P2290 
P2300 
P2310 
P2320 
P2330 
P2340 
P2350 
P2360 
P2370 
P  2  3  80 
P2390 


subroutine 


E 


E  M  E  N 


SUTRA 


VERSION  1284*20  PI  0 


VMAG(L)=QSQRT(AXSUM*AXSUM+'AYSUM*AYSUM)/4.3D0 
IFCAXSUM)  2500/2700/2800 
2500  ATX=AYSUM/AXSUM 

VANS(L)=0ATAN<AYX)/1. 7453293*2 
IF(AYSuM.LT. 0.000)  GOTO  2600 
VANG(L)=VANG(L)*180.0DG 
GOTO  3000 

2600  VANG(L)=VANG(L)-180.000 

GOTO  3000 

2700  VANG(L)=90.0D0 

IF (AYSUM.LT. 0.000)  VANG(L)=~90.000 
GOTO  3000 

2300  AYX=AYSUM/AXSUM 

VANG(L)  =  0  AT  ANCAYXW1. 7453290-2 

C . INCLJOE  MESM  THICKNESS  IN  NUMERICAL  INTEGRATION 

3000  00  3300  KG=1/4 

3300  DET CKG)=ThICKG(XG) *OET(XG> 


C . CALCULATE  PARAMETERS  FOR  FLUID  MASS  BALANCE  AT  GAUSS  POINTS 

IF(Ml-I)  3400/3400/6100 
3400  SWTEST=0.00 

00  4000  X  G  =  1 / 4 
SwT£ST=SWTEST*SwG(KG) 

ROMG=RHOG(KG)«RtLKG(KG)/VISCG(KG) 

RXXG(KG)=PERMXX(L)*ROMG 
RXYG(KG)=PERMXY(L)*ROMG 
RYXG(KG)=PERMYX(L)*ROMG 
RYYG(KG)=PERMYY(L)*ROMG 
4000  CONTINUE 

c 

C . INTEGRATE  FlJIO  MASS  3ALANCE  IN  AN  UNSATURATED  ELEMENT 

c  using  asymmetric  weighting  functions 

IFCUP.LE.1 .00-6)  GOT  D  5200 
IF(SwT£ST-3. 99900)  4200/5200/5200 
4200  00  5000  1=1/4 

DF=0.00 
V0=0. DO 

00  4400  K  G  =  1 / 4 
V3=V0*F(I,XG)*3ET(<G) 

4400  0C=0F*<(RTXG<K5)*RGXG(KG>*RXYG<KG)*R&T&(KG)) 

1  *DWDXG(I/XG) 

2  *  (R Y XG  (  X G) * R jXG( KG) *R Y YG( x G) *R&TG (XG) > 

3  *OWDYG( I/XG) ) *DET (XG) 

DO  4800  U  =  1 / 4 

3  F  =  0 . 00 

0  3  -  oO  J  x  j - 1 / 4 

-  60  0  3F=tJF*((RxXo(<G)*jcuXG(U/XG)*RXYG(KG)*DFDYG(U/XG))*DwOXG(I 

2  *(RYxG(XG)*0-DxG(U/<G)*RYYG(xG)*OFOYG(U/XG))*DwDYG(I/ 

3  *0=  T ( XG) 

-  3  J  0  3=l0wE(I/J)=Bc 

VJlC ( I ) ;V0 

5  000  0Fi.3WE(I)=0F 

GOTO  6  2  0  J 


C . INTEGRATE  c  L  J  4  3  MASS  3  A  L  A  N  C 

C  c  _  E  '*  E  N  T  o  S  I  N  G  SYMMETRIC 

5  2  u  C  j  0  6  0  0  0  l  -  1  /  — 

0  F  :  J  .  J  0 

V  j  =  J  .  0  0 


IN  A  SATURATED  OR  uNSAT  JRATED 
E I G  n T I N  G  FUNCTIONS 


0 1 210, 
PI  220, 
PI  230, 
PI  240, 
PI  250, 
PI  260, 
PI  270 
PI  230 
PI  290, 
PI  300, 
PI  310, 
PI  320, 
PI  330, 
PI  340, 
PI  350, 
PI  360, 
PI  370, 
PI  380, 
PI  390, 
PI  400, 
P  1  4  1  0  , 
PI  420, 
PI  430, 
PI  440, 
P 1  4  50 , 
PI  460, 
P 1 4  70 , 
PI 4S0, 
P 1  4  90 
PI  500 , 
PI  51 0, 
PI  520, 
PI  5  30, 
PI  540, 
PI  550, 
PI  5oO 
PI  570 
PI  580, 
PI  590 
P  1  6  00 , 
PI  61 0, 
PI  620, 
PI  630 
PI  640 
PI  650 
PI  6o0 
0  1  6  7  0, 
/ X  & ) P 1  680, 
KG) ) °1 690 
PI  700 
PI  71 0, 
PI  720 
PI  730 
PI  740 
PI  750, 
PI  760, 
PI  770 
p  1  7  8  C 

P  1  7G3 
pi  BOO, 


/  *♦ 


SU3 SOUTINE 


L  E  M  E  N 


SUTRA 


VERSION  1 2  3  4  -  2  D  P10.  . 


CALL  3ASIS2(CC00/L/XLCC/YLCC/IN/X/Y/r(1,IL)/W(1/IL)/DET(IL)/  P61C. 

1  CFDXG(1/IL)/DFDYGC1/IL)/OWOXG<1/IL)/DwOY&<1/IL)/  P  5  2  0 . 

2  PITER/UITER/PVEL/P0R/THICK/THICKG(IL)/VXG(IL)/VYC-CL)/  P4  3C. 

3  SwG(IL)/RHCG<IL)/VISC&(IL}/pOR&(IL>/VGMAG<IL)/RELKG<IL>/  P 6  AO. 

4  PERMXX/PERMX Y/PERMYX/PERMY Y/CJ1  1  /C J1 2/CJ21/C J22/  P65C. 

5  GXSI/GETA/RCIT/RCITMl,RGXG<IL)/RGYG(ID)  P660. 

GXSI(L/IL)=CJ11*GRAVX+CJ12* GRAVY  PS70. 

GETA(L/IL)=CJ21*GRAVX*CJ22*GRAVY  P  6  3  0 • 

C . CHECK  FOR  NEGATIVE-  OR  ZERO-AREA  ERRORS  IN  ELEMENT  SHAPES  Pi? 0. 

IrOET(IL))  200/ 200/ 500  P  700  . 

200  IST0P=IST0P  +  1  P  7 1 0 . 

WRITE (6/ 400  IN(CL-1)*4*IL)/L/0£T(IL)  P720. 

400  FORMAT (IIX/'THE  DETERMINANT  OF  THE  JAC03IAN  AT  GAUSS  POINT  '/I4/P730. 

1  '  IN  ELEMENT  '  / 1 4/  '  IS  NEGATIVE  OR  ZERO/  '/1PE15.7)  P740. 

500  CONTINUE  P  7  5  0  . 

1000  CONTINUE  P  7  6  0 . 

C  P  7  70 . 

IF(ISTCP.EC.O)  GOTO  2000  P78C. 

WRITE (6/1 500)  P79C. 

1500  F0RMATC//////1 IX/'SOME  ELEMENTS  HAVE  INCORRECT  GEOMETRY.'  PSOO. 

1  //llX/'FLEASc  CHECK  THE  NODE  COORDINATES  AND  '/  PE10. 

2  'INCIDENCE  LIST/  MAKE  CORRECTIONS/  AND  THEN  RERUN.'////////  P52C. 

3  IIX/'S  IMULATION  hALTE  D'/  P32C. 

4  1  1  X/  ' _ _ _  _ P 2  4 0  . 

ENDFILEC6)  P  3  50 . 

STOP  ?  ®  60  . 

C  P  3  70 . 

C . LOOP  THROUGH  ALL  ELEMENTS  TO  CARRY  OUT  SPATIAL  INTEGRATION  P23Q. 

C  OF  FLUX  TERMS  IN  P  AND/CR  U  ECU AT  IONS  PE90. 

2C00  IF(IUNSAT.NE.O)  IUNSAT=2  PAQC. 

C  - - -  - - -  -  - - - - - - -  -  -  - - -  -  -  P  9 1 0 . 

c_--____.___________________________  p930. 

00  9999  L  =  1 / NE  P940. 

X  I  X  =  —  1 .DO  P  ?  5  0 . 

YIY=-1.D0  P960. 

KG=0  P97C. 

C . 03TAIN  BASIS  FUNCTION  ANO  RELATED  INFORMATION  AT  EACH  OF  P930. 

C  FOUR  GAUSS  POINTS  IN  THE  ELEMENT  P99Q. 

DO  2  2C0  I  YL  =  1 / 2  P1C0C 

DO  21  CO  I  XL  =  1 / 2  P1C1C 

KG=KG+1  P1C2C 

XL0C=XIX*GL0C  P1C3C 

YLOC=YIY*GLOC  P104C 

CALL  BASIS2(0001/L/XLOC/YLOC/IN/X/Y/F(1/KG)/W(1/KG)/DET(KG)/  P105C 

1  CFCXG(1/KG)/0FCYG(1/KG)/CW0XG(1/KG)/0WDYG(1/KG)/  P106C 

2  PITER/UITER/?VEL/PCR/ThICK/THICKG(KG)/VXG(KG)/VYG(KG)/  P107C 

3  SWG(KG)/RHOG(KG)/VISCG<KG)/?ORG(KG)/VGMAG(KG)/RELKG(KG)/  PI  0  30 

4  PERMXX/PERMXY/PERMYX/PERMYY/CJ11/CJ12/CJ21/CJ22/  P1C9C 

5  GXSI/GETA/RCIT/RCITMl/RGXG(KG)/RGYG(KG))  P110C 

2 1  CO  XIXs-XIX  P111C 

2200  YIYs-YIV  P 1 1 20 

C  P113C 

C . CALCULATE  VELOCITY  AT  ELEMENT  CENTROID  WHEN  REQUIRED  P114C 

IFCKVPRNT-2)  3C00/ 2300/ 3000  P115C 

2300  AXSUM=O.ODO  P 1 1 60 

AYSUM  =  O.OCO  P 1 1 7  0 

00  2400  K G  =  1 / 4  P 1 1 3 0 

AXSUK=AXSUM+VXG(K3)  P119C 

2400  AYSUM=AYSUM» VYG(KG)  P120C 


SUBROUTINE 


E  L  E  M  E  N 


SUTRA 


VERSION  1284-20  P 1 3 


SUBROUTINE  E  i_  E  M  E  N  SUTRA  -  VERSION  1  234-2D  P10. 


P20. 

►  **  PURPOSE  :  PJO. 

►  **  TO  CONTROL  ANO  CARRY  OuT  AlL  CALCULATIONS  FOR  EACH  ELEMENT  BY  P43. 

►  **  OBTAINING  ELEMENT  INFORMATION  FROM  ThE  BASIS  FUNCTION  ROuTINE,  P50. 

►  **  CARRYING  OUT  GAUSSIAN  INTEGRATION  0=  FINITE  ELEMENT  INTEGRALS,  P60. 

ANO  SENDING  RESULTS  OF  ELEMENT  INTEGRATIONS  TO  GLOBAL  ASSEMBLY  P70. 

***  ROUTINE.  ALSO  CALCULATES  VELOCITY  AT  EACH  ELEMENT  CENTROID  FOR  P80. 

►**  PRINTED  OUTRUT.  P90. 

PI  00 

SUBROUTINE  ELEMENCML, IN, X,Y, THICK, PITER, UITER,RCIT,RCITM1,P0R,  PI  10 

1  ALMAX, ALMIN, A T A VG , P E R M X X , P E R M X Y , P E R M Y X , P E R M Y Y , P A N G L E ,  P120 

2  VMAG, VANG, VOL, PMA T , P V E C , JM AT, U V E C, GX S I, GET  A, P V  EL )  P130 

IMPLICIT  DOUBLE  PRECISION  (A-rt,0-Z)  P 1 4  0 

COMMDN/OIMS/  NN,N£,NIN,N8I,NB,NBHALF,NPINCH,NPBC,NUBC,  P150 

1  NS0P,NS0U,N3CN  PI  60 

COMMON/TENSOR/  GRAVX, GRAVY  P170 

COMMON/PARAMS/  COM PFL,COMPMA,DRwDU,Crf,CS,RHOS, DECAY, SIGMAW, SIGMAS, PI  80 
1  RHOwO,URHOrO,VISCO,PROOF1 ,PRODS1,?RODFO,PRODSO,CHI1 ,CHI2  P190 

COMMON/TIME/  DElT,TSEC,TMIN,THOUR,TOAY,TWEEK,TMONTH,TYEAR,  P200 

1  TMAX/DELTP,0ELTU,DlTPM1 /0LTUM1 ,IT,ITMAX  P210 

COMMON/CONTRL/  G N U , U P , D T M UL T , D T M A  X , ME , I S S FL 0 , I S S T R A , I T C YC ,  P220 

1  NPCYC,NUCYC,NPRINT,IREAD,ISTORE,NOUMAT,IUNSAT  P230 

COMMON/KPRINT/  KNOOAL,KELMNT,KINCIO,KPLOTP,KPLOTU,KVEL,KBUDG  P2  4  0 

DIMENSION  IN(NIN),XCNN),Y(NN),THICK<NN>,PITER(NN),  P250 

1  UITER(NN),RCIT(NN),RCITM1 (NN),?OR(NN) ,PVEL(NN)  P260 

DIMENSION  PERMXX(NE),PERMXY(NE),PERMYX(NE),PERMYY(NE),PANGLE(NE),  P270 

1  ALMAX(NEJ,ALMIN(NE),ATAVG<NEJ,VMAG(NE),VANG(NE),  P280 

2  GXSI CNE,4),GETA(NE,4)  P290 

DIMENSION  VOL(NN),PMAT<NN,NBI),PVEC(NN),UMAT(NN,NBl),UVEC(NN)  P300 

DIMENSION  3FL0WE(4,4),DFLQWE(4),3TRANE(4,4),DTRANE(4,4),V0LE(4)  P310 

DIMENSION  F(4,4),W(4,4),D£T(4),DFQXG(4,4),QFDYG(4,4),  P 320 

1  DWDXG(4,4),DWDYG(4,4)  P330 

DIMENSION  SWG(4),RH0G(4),VISCG<4),P0RG(4),VXGC4),VYG<4),  P340 

1  RElKG(4),RGXG(4),RGYG(4),VGMAG(4),THICKG(4)  P350 

DIMENSION  RXXGC4) ,RXYG<4) ,RYXG(4> ,RYYG(4)  P360 

DIMENSION  3XXG(4),BXYG(4),BYXG(4),BYYG(4),  P370 

1  EXG(4),EYG(4)  P380 

DIMENSION  GXLOC (4) ,GYl0C (4)  P390 

DATA  GLOC/O. 57735026918962600/  P400 

DATA  INTIM/U/, I  STOP/D/ ,GXL0C/"1  . DO, 1 .DO, 1 . D0,-1 . DO/,  P41Q 

1  GYL0C/-1. DO, -1.00,1 .00,1.00/  P‘,20 

P*»30 

....DECIDE  WHETHER  TO  CALCULATE  CENTROID  VELOCITIES  ON  THIS  CALL  P440 

IVPRNT  =  0  P4  5  0 

IF (MOD (  IT,NPR  INT ) . EC. 0. AND. ML . NE . 2 . AND. I T . NE . D )  IVPRNT  =  1  P460 

IFCT.EQ.1)  IVPRNT  =  1  P  4  7  0 

X VPR NT = I VPRNT+X V E l  P48O 

P  4  9  0 

....DN  FIRST  TIME  STEP,  PREPARE  GRAVITY  VECTOR  COMPONENTS,  P5D3 

oXSI  AND  GETA,  FOR  CONSISTENT  VELOCITIES,  P510 

ANj  CHECK  ELEMENT  SHAPES  p  5  2  0 

IF(INTIM)  100,100,2033  P530 

1  0  0  I  ,N  T I  M  =  1  p  S  4  0 

....LOOP  THROUGH  ALL  ELEMENTS  TO  OBTAIN  THE  INVERSE  JACOBIAN  ? 5 5 0 

AT  EACH  Oc  T-tE  eOUR  NODES  IN  EACH  ELEMENT  Pj6j 

DJ1DJ0L  =  1,NE  p  S  7  0 

D05u3Il=1,4  p  5  3  0 

XL  DC  =  o  x  l  CC  <  I  L  >  p  5  R  0 

Yt  DC=GYlDC ( IL )  PoDO 


Sj3R3JTINE 


A  J  S  0  R  3 


SjTra 


V  :  S  1 0  N  12  3 


GOTO  2003  0610 

C  Oo2Q, 

Z . LANGMuIR  S0R3TI0N  MODEL  0630, 

953  IFtADSMOD.Ne. 'LANGMUIR  *)  GOTO  2000  0640 

DO  1000  1=1, MM  0650, 

QO  =  1.D0»CrtI2*R“iOW3*u(I)  0660, 

CS1CI)=<CHl1*RH0m3)/ (DO* GO)  0o70 , 

CS2(I)=Q.Q3  0630, 

CS3(I)=0.D0  0690, 

SL(I)=CS1(I)  0700, 

SR(I)=CS1<n*CHI2*RH0«0»U<I)*J(I)  0710, 

1003  CONTINUE  0720, 

C  0730 

2000  RETURN  0740 

END  0750 


S  j  S  R  0  j  T  I  N  E 


'i  3  D  A  L 


S  jTSJ 


VERSION  1  2  3  -  -  2  0  dO 


Ir(ML-l)  23C/10C0/233  TolO.. 

T  6  2  0  .  . 

Z . CALCULATE  CELlWISE  terms  for  J-E2JATION  T  6  3  0  .  . 

230  EPRS= ( 1 . OC-P3R ( I ) ) *RW3S  To40.. 

ATRN  =  (1-I3STRA)*(:>0RCI)*SwRrt0N«Cw  +  EPR3*CS1(I>)»V0L(I)/0ELTU  T  6  5  0 .  . 

3TR\  =  PORC)*S«RhO'I*PR30F1*VOL(I)  T  6  6  0  .  . 

G3V  =  EPR S *PRQ3 3 1  *  VOL  (  I  >  To70.. 

33LTRN=GSV*3L(I)  T630.. 

33RTRN  =  GSV*SR(  I)  T690.. 

ETR,V=(30R(I)*SRRH3N*PR00F3  +  EPRS*PR0DSJ)*VGL(I)  T  7  00  .  . 

C . CALCULATE  S0JRCE3  OF  SOlUTE  OR  ENERGY  CONTAIN EO  IN  T710.. 

C  SOURCES  OF  FLUID  (ZERO  CONTRIBUTION  FOR  OUTFLOWING  FLUlO)  T720.. 

OuRO.OOO  T  7  3  0  .  • 

3UL  =  3. 000  T  74  0  •  . 

IF(JIN(I)>  360/363/343  T750.. 

3  4  0  3uL  =  -CW*3IN(I)  T  760  .  . 

3UR  =  -JUL*UIN(I)  T770  .  • 

C . A  0  0  CELLWISE  TERMS/  SOURCES  OF  SOLUTE  OR  ENERGY  IN  FLUID  INFLOWS/  T7S0.. 

C  AND  PURE  SOURCES  OR  FLUXES  OF  SOLUTE  OR  ENERGY  TO  U-E3UATI0N  T790.. 

3  o 3  IF(NOuMAT)  370/  373/330  T800.. 

370  UMAT ( 1/NBhALF)  =  UMAT (I/NBHALF)  «•  ATRN  -  GT  RN  -  GSLTRN  -  QUL  T810.. 

363  UVEC(I)  =  UVECCI)  ♦  ATRN*UM1(I)  ♦  ETRN  ♦  GSRTRN  ♦  OUR  *  OulN(I)  T820.. 

C  T830. . 

1330  CONTINUE  T840.. 

C  T850.. 

RETURN  T860. . 

F  NO  T  8  70  .  . 


subroutine 


3 


B 


SUTRA 


VERSION  1 284-2D  UIO 


r 

C  **• 
C  »  *  » 

c  *  *  » 
c  *  *  * 

c 


1 

1 

1 

1 

1 


c 

G  •  .  .  ■ 

c 

100 


c 

c 

200 


340 

3o  0 
3  2  0 
3  3  0 
1  000 


1  030 

c . 


1100 


1  2^0 
1  5  u  0 


subroutine  bob  sutra  -  version  1234-20  uio. 

U20. 

purpose  :  uio. 

to  implement  specified  pressure  and  specifieo  temperature  or  uo. 

CONCENTRATION  CONDITIONS  BY  M00IFYING  THE  GLOBAL  FlOw  ANO  U50. 

TRANSPORT  MATRIX  EQUATIONS.  U60. 

U  7  0  . 

Subroutine  BCB(ML,PMAT,pvEC,UMAT,uvEC,iP3C,PBC,iuac,J8C,QPLiTR)  uao . 
IMPLICIT  DOUBLE  PRECISION  (A-M/O-Z)  U90. 

COMMON/OIMS/  NN,NE,MN,NBI,N3,NBHALF,NPINCH,NPBC,NU3C,  U100 

NS0P,NS0u,N3CN  U1 1 0 

COMMON/TIME/  OElT,TSEC,TMIN,TMOUR,TQAY,TWEEK,TMONTH,TYEAR,  U  1  2  0 

TMAX,0ELTP,0ELTU/0lTPM1,DLTUM1,IT/ITMAX  U 1 3  G 

COMMON/PARAMS/  COMPEL, COMPMA,DRwOu,CW,CS,RMOS, DECAY, SIGMAw, SIGMAS, U140 
RMOwO,uRhOirO,VISCO,PROOF1,PROOS1,PRODFO,PRODSO,CpiI1,CHI2  U 1  5  0 

CUMMON/CONTRL/  GNU,uP,OTMULT,OTMAX,ME, ISSFLO/ISSTRA/ITCYC,  U160 

NPCYC,NUCYC,NPRINT,IREAO,ISTOR£,NOUMAT,IuNSAT  U1T0 

DIMENSION  PMAT ( NN,NBI > , PVEC (NN> ,UMAT (NN,NBI ) ,UVEC (NN)  ,  U180 

IP3C(NBCN),°8C(N3CN),IuBC(NBCN),u3C(NBCN),iPLlTR(N3CN)  U190 

U200 
U2 1  0 

IF(NPBC.Eu.O)  GOTO  1050  U220 

SPECIFIEO  p  30 UNOARY  CONDITIONS  U230 

00  1  000  I P  —  1 ,NPBC  U240 

I  =  I  A  8  S (  I  P  8  C  (  IP)  )  U  2  5  0 

U260 

IF(ML-I)  100,100,200  U270 

MOD  I  c  Y  EQUATION  FOR  p  BY  ADDING  FLUID  SOURCE  AT  SPECIFIED  U280 

PRESSURE  NODE  U290 

GINl=-GNU  U300 

GINR=GNU*PBC(IP)  U  3  1  0 

PMAT(I,NBMALF)=PMAT(I,NBHALF)-GINL  U  3  2  0 

PVEC ( I ) =PVEC ( I ) +  GINR  U  3  30 

U340 

IF(Ml-l)  200,1000,200  U350 

MODIFY  EQUATION  FOR  U  BY  ADDING  U  SOURCE  WHEN  FLUID  FLOWS  IN  U360 

AT  SPECIFIcO  PRESSURE  NODE  U370 

GUR  =  0 . 000  U  3  9  0 

GUL =0.000  U390 

IF(QPLITRCIP)  )  360,360,  340  U400 

GUL  =  -CW*QPLITR(  IP)  U410 

GUR=-GUL*UBC(IP)  U420 

IF(NDuMAT)  370,370,33J  U430 


UMAT(I,N9rtALc)=jM4T(I,NBMALF)-GuL 


U  4  4  G  . 


JVEC(I)=UVEC(I)*GuR 

CONTINUE 


U45G 
U  4  6  0 
U4  70 


U  4  9  G 


IF(ML-I)  1  1  00,  5000,  1  1  00  U4  9  0 

specified  j  boundary  conditions  U 5 0 0 

MODIFY  U  EQUATION  AT  SPECIFIED  J  NODE  TO  READ:  U  =  UBC  U510 

IrCNJBC.Ej.O)  GOTO  3000  U  5  2  0 

00  2000  Iu=1,NUBC  U  5  3  0 

IU°=Iu+NPoC  U540 

I  =  IA3S(IUbC(Ij°)  )  U  5  5  0 

IF(NOuMAT)  1 2  JO, 1 2C j,  200C  U  5  b  0 

00  1500  J  B  =  1 , N  3  U 5  7 0 

UMATC,u9)=L.JD^  U  5  3  C 

j  «  fl  T  <  I  ,  *»  ?-iAlc)  =  J.ODJ  U  5  R  j 


o  o  o  o  o  o 


Subroutine 


p  i  n  c  h  s 


SUTRA 


VERSION  1284-2D  VIO 


SJ3R3UTINE  P  I  N  C  H  S  SUTRA  -  VERSION  1284-2D  VIO.. 

V20. . 

*«*  PURPOSE  :  V 3 0 . . 

***  TO  IMPLEMENT  PINCH  NODE  CONDITIONS  3T  MODI  FT  ING  THE  V40.. 

***  GLOBAL  PLOW  AND  TRANSPORT  MATRIX  EQUATIONS.  V50.. 

V  5  0  .  . 

SUBROUTINE  PINChB(ML*IPINCH*PMAT*PVEC*UMAT*UVEC)  V70. . 

IMPLICIT  00u3L  E  PRECISION  (A-rl/O-Z)  V80.. 

COMMON/OIMS/  NN*NE*NIN*N3I*N8*NBHALF*NPINCH*NPBC*NUBC*  V  9  0  . . 

1  nsop/NSOu/NBCn  vioo. 

COMMON/CONTRL/  GNJ*UP*DTMJLT*3TMAX*ME*ISSFL0*ISSTRA*ITCTC*  VI 10. 

1  N=>CT  C*NUCrC*NPR  INT*  IREAD*  ISTORE*  NOUMAT*  IUNSAT  V120. 

DIMENSION  IPINCH(NPINCH,3)*PMAT(NN*NBI)*PvEC(NN)*  V130, 

1  UMAT(NN*N9I)*  JVEC(NN)  V140. 

C  VI 50 . 

C . NPIN  IS  ACTUAL  NUMBER  OF  PINCH  NODES  IN  MESH  V160. 

NPIN=NPINCH-1  V 1 70 , 

DO  1  000  IPIN=1*NPIN  V 1 80  < 

C . SET  NUMBERS  OF  PINCH  NODE  AND  NEIGHBOR  NODES  V190. 

I=IPINCH(IPIN,1 )  V200, 

IC0R1  =  IPINCh(IPIN/2)  V  2 1 0 . 

ICOR2=IPINCH(IPIN*3)  V  2  20 , 

JC1 =IC0R1 -I+NBHALF  V230, 

JC2=IC0R2-I*N3HALF  V240, 

C  V  2  5  0 , 

IF(ML-I)  50*50*250  V260, 

C . ADJUST  P  EQUATION  FOR  PINCH  NODE  CONDITIONS  V270, 

50  00  100  JB=1*N3  V280, 

100  PMAT (I*JB)=O.ODO  V290, 

PVEC(I)=0.000  V300, 

PMAT ( I*NBHALF) =1  . 0000  V  3 1 0 . 

PMAT(I*JC1 )=-0.5000  V320, 

PMAT(I,JC2)=-0.50D0  V330, 

IF(ML-I)  250*  1  000*250  V  34  0 , 

C . ADJUST  U  EQUATION  FOR  PINCH  NODE  CONDITIONS  V35G 

250  IF(NOUMAT)  300*300*500  V360 

300  DO  400  J  B  = 1  *  N 6  V  3 70 

400  UMAT (I*JB)=O.ODO  V330 

JMATCI*N3HALC) =1 .0000  V  3  90 . 

JMAT(I*JC1)=-0.50D0  V400 

UMAT(I*JC2)=-0.50D0  V  4 1 0 

500  UVEC ( I ) =0. 000  V42C 

C  V4  30 

1  000  CONTINUE  V  4  4  0 

C  V*.  5  0 

C  V460 

RETURN  V  4  70 

END  Vh  30 


37  1 


SjBRJjTINE 


S  0  L  V 


3 


SuTRA 


V  E  R  3  I  0  J  1  2  3  <*  -  2  D  *13 


f 

SUBROUTINE  S  3 

L  V  E  3  SUTRA  -  VERSION 

1234-2D  W 1 0 . . 

r 

A  2  0  .  . 

C  *  *  * 

PURPOSE  : 

A  30 . . 

c  *  *  * 

TO  SOLVE  TrtE  MATRIX  EQUATION  3  Y : 

W  4  0  .  . 

*  *  *  * 

(1)  DECOMPOSING  THE  MATRIX 

w50 .  . 

C  *  *  * 

(2)  MODI  =  rlNS  The  RIGmT-HANO  side 

W60.  . 

c  *  *  * 

(3  )  BACK-S'JaSTI  TUTING 

FOR  THE  SOLUTION 

^  7  0  •  m 

c 

W80.  . 

subroutine  sdlvebuxx/C/ 

R/NNP/IHAlFB/MAXNP/MAXBW) 

W90.  . 

IMPLICIT  00j3lE  PRECISION  (A-.H/0-2) 

wl  00. 

DIMENSION  C(MAXNP/MAX3W) 

/ R(MAXNP) 

who. 

H  3  P  =  I  H  A  L  F  3  ♦  1 

w  1  2  0 . 

r 

w  1  3  0 . 

C  «  «  •  •  « 

.decompose  matrix  ;  ar  banded  Gaussian  elimination  for 

W  1  40  . 

non-stmme tr ic  matrix 

wl  50. 

IFCXXX-1)  5,5,50 

wl  60 . 

5 

NU=NNP-IHALF3 

wl  70. 

00  20  N I  =  1 / N  U 

wl  80. 

PIV0TI=1 .DO/CCNI/IHBP) 

w  1  90 . 

N  J  =  N  I  ♦ 1 

W200 . 

ia=iH8P 

w21  0. 

NK=NI*lHALFB 

W220. 

00  10  NL  =  N  J / NX 

W230. 

ia=i 3-1 

W240. 

A=-C (NL/ IB) *°IVOTI 

W250. 

: <nl/I3) =a 

W260. 

ja  =  1 3 ♦ i 

W270. 

*B=I3*IHAlFB 

W280. 

LB  =  H3P-IB 

W  2  9  0 . 

0010  MB=JB/K9 

W300. 

NB=L3*MB 

W310. 

1  0 

C(nl/MB)=c(nl/MB)*a*c<ni 

/NB) 

W320. 

20 

continue 

W330. 

NR  =  N  J  +  1 

W340. 

NU=NNP-1 

W350. 

NX  =  N  N P 

W360. 

00  40  NI=NR/NU 

W370. 

pIVOTI=1.DO/CC(NI/ImB?)) 

W380. 

N  J  =  N  I  ♦  1 

W390. 

ia  =  nap 

W400. 

30  30  NL=NJ/NX 

W4  1  0  • 

i  a  =  i  b  - 1 

W420  . 

A=-C (NL/ Id) *PIV0TI 

W430. 

C(NL/IB)=A 

W440  . 

j  a  =  i  3  4-1 

W450. 

X8=I3*lHAlFB 

W460. 

LB=  H3P-IB 

W4 70 . 

00  30  MB=J3/Xa 

W480. 

N6=La*MB 

W490. 

30 

C(NL/MB)=C(NL/M8)VA*C(NI 

/  N3  ) 

W500. 

40 

CONTINUE 

W  5  1  0 . 

I F  (  x  X  X  - 1  )  50/«.4,50 

W520. 

44 

RETURN 

W5  30. 

y* 

W540. 

r 

W  •  •  •  •  « 

.JPOATE  RIGHT-HAND  SIDE  VECTOR/  R 

W550. 

30 

N  J  =N  NP ♦  1 

W  5  6  0 . 

I  sAND  =  2  * IH AlF  a* 1 

W570. 

DO  70  NI=2/lHdP 

w5  30 . 

Io=HdP-NlH 

w  5 90 . 

N  J  -  1 

W6QQ . 

372 

i 


subroutine 


solves 


SuTRA 


VERSION  1284-20  W1 0 


oO 

20 


80 

90 


130 

110 


1  20 
1  30 


SUM=3.000 

W61  0. 

00  60  JB=IB/IHALc3 

wo20, 

SJM=SUM*C(NI/  J  3  >  *R(NJ) 

W633, 

N  J  =  N  J  ♦  1 

W  6  4  0  . 

R(NI)=R(NI)*SuM 

W650. 

13=1 

W660 

NL  =  H3  P  +  1 

W670, 

00  90  NI=NL/NNP 

W680. 

N J=Nl-lHBP+1 

W  6  9  Q  . 

SUM=3. DO 

W703. 

00  83  JB=I3/lMALF3 

w  71  G , 

SJM=SJM+C(NI/JS) *R(NJ) 

w720. 

N  J  =  N  J  +  1 

W730, 

R ( NI ) =R ( N I ) +  SUM 

w  74  0 . 

W  75 0 , 

BACK  SOLVE 

W  760 , 

R(NNP)=R(NNP)/C<NNP/HBP> 

W  770 . 

00  113  18=2/ IHBP 

W  7  80 . 

NI=NJ-IB 

W790. 

N  J  =  N  I 

W800. 

MB=IHALFB+IB 

W310, 

SUM  =  3 . 00 

W820. 

00  130  JS=NL/MB 

w8  30 . 

N  J  =  N  J  + 1 

W840, 

Sum=sum+c<nI/JB)*r<nj) 

W850, 

R(NI)=<R(NI)-SUM)/C(NI/IHBP) 

W860, 

MB=I3AN0 

w870, 

00  130  IB=NL/NNP 

W380. 

NI=NJ-IB 

W890, 

N  J  =  N  I 

W9  00 . 

SUM  =  3 . 00 

W910. 

00  123  JB=NL/M3 

W920. 

N J  =N  J ♦ 1 

W930. 

SuM=SUM+C(NI/J3)*R(NJ) 

W940, 

R(NI)  =  (R(NI)-S'JM)/C(NI/IMBP) 

W950. 

H960, 

W970. 

RETURN 

w98Q. 

END 

W990. 

s  u  3  r  o  j  t  i\c 
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SUBROUTINE 


3  J  0  G  £  T 


SUTRA  -  VERSION  1234-20 


►  *  *  o  jRPDSE  : 

»**  TO  CALCULATE  4  N  0  OUTPUT  -LUlO  MASS  AnO  SOLoTE  M4SS  OR 
»**  ENERGY  3uDG£TS. 

subroutine  3JD3=T(ML/i3CT/VOL/Srf/QS-DP/RH0,s3P/QiN/PVEC/RMi/ 

1  P3C/wPLITR/IP3C/I33OP/POR/UVEC/UMl,UM2/UlN/2ulN/I0SOU/U3C/ 

2  CS1 /CS2/CS3/SL/SR) 

IMPLICIT  0  Ou  3  L  6  PRECISION  (A-i/O-Z) 

CriARftCTER*10  AOSMOO 
C OMMON/MOOSOR/  AOSMOO 

COMM  ON /DIMS/  NN/NE/NlN/NBI/NB/NBHALF/NPINCH/NPBC/NUBC/ 

1  NSOP/NSOU/ N3CN 

COMMON  / TIME/  OELT/TSEC/TMIN/TiOUR/TOAY/TREEX/TMONTH/TYEAR/ 

1  TMAX,0ELTP/0eLTU/0t.TPM1/0LrUMl/IT/ITMAX 
COMMON /PftRftMS/  COMPFL /COM PM A/ORwDJ/CW/CS/RHOS/ DECAY/ SIGMftrt/SIGMflS/ 
1  RMQMO/URhDrO/VISCO/PRODFI /PR00S1 /PRODFO/PRODSO/CMI1 / C  H I  2 

COMMON/CONTRL/  GNJ/UP/OTMJLT/OTMAX/ME/ISSFLO/ISSTRA/ITCYC/ 

1  NPCYC/NUCYC/NPRINT/IREAD/ISTORE/NOUMAT/IUNSAT 
CrtftR4CTER*1 3  UNAME(2) 

DIMENSION  QIN(NN)/UIN(NN)/IQSOP(NSOP)/QUIN(NN)/IQSOU(NSOU) 
DIMENSION  IPBC(NBCN)/UBC(NBCN)/QPLITR(NBCN)/PBC(N3CN) 
dimension  por(nn)/Vol(nn)/Pve;(nn)/uvec(nn)/Sm(nn>/DSwdp(nn)/ 

1  RM0(NN)/S0PCNN)/PM1 (NN)/UM1(NN)/UM2(NN)/ 

2  CS1(NN),CS2(NN)/CS3(NNJ/SL(NN)/SR(NN) 

DATA  UNAME (1 ) / *C0NCcNTRATI0N*//UNAM£ (2) / '  TEMPERATURE  */ 


mn  =  2 

IF(IUNSAT.NE.O)  IJNSAT=1 
IF(ME.EQ.-I)  MN  =  1 
WRITE(6/10> 

1 0  F0RM4T ( 1H1 ) 

_ .SET  JNSATURATED  FLOW  PARAMETERS/  SW(I)  AND  DSmDPCI) 

IF(IJNSAT-I)  40/20/40 
20  00  30  I = 1 / NN 

IFCPVEC(I) )  25/27/27 

25  CALL  UNSAT(SW(I)/DSwOP(I)/RELX/PVECCI)) 

GOTO  30 

27  SM(I)=1.000 
0  SWD  p  ( I ) =0.000 
30  CONTINUE 

....CALCULATE  COMPONENTS  OF  FLUID  MASS  BUDGET 
O  IF(M.-I)  50/50/1000 
30  CONTINUE 

STPTOT=Q.DO 
STUTOT  =0.00 
OINTOT=O.DO 
0  0  1  00  I  = 1 / N  N 

STPTOT=STPTOT*(1-ISSFkO/2)*RMO(I)*VOL(I)* 

1  (Sm  ( I  )  »SOP( I) *POR(I ) *DSWDP(I) ) *(PVEC( D-PMl (I) ) /DEL  TP 
STUTOT=STuTOT*(1-ISSFuO/2)*POR(I>*Sm(I)*ORWOJ*VOLCI)* 

1  (  JM 1  (  I) -UM2< I ) ) /0LTUM1 

2INTOT  =  3INTOTOIN(I) 

100  CONTINUE 

QPLT  OT  =  0. 00 
00  200  IP=1/NP3C 


X  1  0 _ 

x  2  0  .  . . 
x  3  0 .  . . 
X  4  0  .  .  . 

X  5  0  .  . . 
x  6  3 .  . . 
x  70  .  . . 
x  30  . . . 
X90. . . 
X100.. 

xi 1 0. . 
xl 20. . 
xi 30. . 
XI 40. . 
XI 50. . 
X 1 60.  . 
xi 70. . 
XI 80. . 

X I  90  .  . 
X 200 . . 
x  2 1  0. . 
X220. . 
X230. . 
X240. . 
X25Q.  . 
X260. . 
X  2  70 . . 
X230. . 
X  2  90  . . 
X  3  0  0  . . 
X  3  1  0  .  . 
X320. . 
X330. . 
X  340.  . 
X  35  0 .  . 
X 360 . . 
X370. . 
X380. . 
X390.  . 
X400.  . 
X  4 1  0 . . 
x  4  20 . . 
X  4  3  0  . . 
X  4  4  Q  .  . 
X  4  5  0  . . 
X  4  6  0  •  . 
X  4  70  .  . 
X480.  . 
X 4 90 . . 
X  500.  . 
X51 0. . 
X  520. . 
X530. . 
X  540.  . 
X550. . 
X  560. . 
X  5  70  . . 
x  5 80 . . 
X 590 .  • 
X600. . 


SU3R  0 JT I NE 


8  J  0  G  E  T 


SUTRA 


V  RSION  1284-2D  XIO 


I  =  IA3S(IPBC(I?)  ) 

QPLITR!IP)=GNJ*!03C!IP)-pvEC!I)) 

QPLTDT=CPLTGT*2PuITR(IP) 

200  CONTINUE 


. OUTPUT  FLuIO  HASS  BUDGET 

WRITE (6*300)  IT,STPTDT/STUT0T,UNAME(HN>/QINT0T/QPLT0T 
300  FORMAT !//11X*'F  LUIO  MASS  BUDGET  AFTER  TIME* 

1  *  STEP  '*15*'*  IN  !MASS/SECONO)'///11X*1PD15.7*5x* 

2  'RATE  OF  CHANGE  IN  TOTAL  STORED  FLUID  DUE  TO  PRESSURE  CHANGE* 

3  '*  INCREASE!O/0ECREASE!->'*/1lX*1P015.7*5x* 

2  'RATE  OF  CHANGE  IN  TOTAL  STORED  FLUID  DUE  TO  ' , A 1  3 *  *  CHANGE'* 

3  '*  lNCREASE!*)/OECREASE(->'* 

3  /11X,1P015.7*5X*'T0TAL  OF  FLUID  SOURCES  AND  SINKS*  '* 

4  'NET  InflDwCO/NET  OUTFLOW!"  )  ' /I  1  X*  1  PD1  5. 7*  5X* 

5  'TOTAL  OF  FLUIO  FLOWS  AT  POINTS  OF  SPECIFIED  PRESSURE*  '* 

6  'net  inflow!*) /net  outflow!-)') 

IF! I3CT.E0.4)  GOTO  600 

NSOPI=NSOP-1 

INEGCT=Q 

00  500  IQP=1*NS0PI 
I=IGSOP(IOP) 

I F ! I )  325*500*500 
325  INEGCT=IN£GCT*1 

IF!INEGCT.EG.1 )  WRITE!6*350) 

350  F0RMAT!///22X*'TIME-DEPEN0ENT  FlUIO  SOURCES  OR  SINKSV/22X* 

1  '  NOOE'*5X*'INFLOW!*)/OUTFlOW(-)'/3?X,'  (MASS/SECOND)'//) 

WR IT  E (6*4  50)  -I*3IN(-I) 

450  FORMAT!22X*I5*10X*1PD15.7) 

500  CONTINUE 

500  IF(NPBC.EQ.O)  GOTO  800 
WRITE!6*650) 

550  FORMAT !/ / / 2  2  X  * 'FLJID  SOURCES  OR  SINKS  DUE  TO  SPECIFIED  PRESSURES 
1  /  /  2  2X  *  '  NODE'*5X*'INFLOW!*)/OUTFlOW!”)'/37X*'  !  M A S S / S EC ONO ) ' 

DO  700  IP=1*NPBC 
I  =  I A  B  S  < I PBC  !  I  P )  ) 

WRITE(6*450)  I*QPLITR!IP) 

700  CONTINUE 

. CALCJuATE  COMPONENTS  OF  ENERGY  OR  SOLUTE  MASS  3U0GET 

800  IFIML-1)  1000*4500*1000 
1000  CONTINUE 

flDTOT=0.00 
SlDT0T=0.00 
°1FT0T=0.00 
=1 ST0T=0.D3 
POCTOT=O.DO 
°OST  OT  =0. 00 
3  .  U  T  D  T  =  u  .  u 3 
3IUT0T=U.O0 

. SET  ADSORPTION  parameters 

IFIME.E0.-1. AND. AOSMOO.NE. 'NONE 
1  CALL  A0S0R3CCS1 *CS2*CS3*SL*SR*UVEC) 

DO  1  300  1  1 1  *  N  N 

ESRv=POR!I)»Sw(I) *RhO!  I) *  v  0  L  ( I ) 

EPRSV=!1.DO-0JR!I))*RHOS*VOL(I) 

OjDT  =  !1-IiSTRA)«!jVEC!I)-uMHI))/jE^Ty 
clOTOT=cLOTuT»cSPv*Cw*DJuT 


X  6  1  0  .  • 
X620.  . 
x  6  3  0 . . 
X  0  4  0  .  • 
Xo50. . 
X  6  6  0  .  . 
Xo70. . 

*  X 6  30  .  . 
x  6  90  . . 

*  X73u. . 
X  7 1  0 . . 
X  7  2  0 .  . 
X  7  3  0 .  . 
X  7  4  0  .  . 
X  750 . . 
X760. . 
X7 70. . 
X780.  . 
X  7  9  0  • . 
X600.  . 
X31 0.  . 

x 8 20 . . 
X830. . 
X840.  . 
X850.  . 
X860. . 
X870.  . 
X 880 .  . 
X  890 . . 
X900.  . 
X910. . 
X920. . 
X930. . 
X94G. . 
'*X950. . 
/ ) X  960 . . 
X  970 . . 
X  980.  . 
X990.  . 
x  1  000 . 
xl 01 0. 
x 1  020 . 

xl 030. 
X  1  0  4  0  • 
x  1  050  . 
X1060. 
x  1  070 . 
xl 080. 
X  1  090 . 
xl 1 00. 
xl 1 1 0. 
xl 1 20. 
XI 1 30. 
XI 1 40. 
XI 1 50. 
xl 1 60. 
XI 1 70. 
xl  1 80. 
xl 190. 
XI 200. 


o  o 


SjBROjTINE 
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:  S 1 0  N  1234-20  *10, 


Sl.3T3T  =  SL0T3T*-EPRSV*C31(I)*DUDT 
P1CT3T=P1FT0T*ESRY*PRDDF1 

!>1STDT=P15T0T«-EPRSV*PRO3S1*(Sl(I)*UVEC<I)*SR(I>) 

PupTDT  =  POFTOT  «-ESRV»PRDDrO 
pDSTDT=POSTOT*EPRSV*RROOSO 
3JUT3T=j2oTOT>3ulM( I) 

IF(OINCI))  1 200, 1 20u, 1 250 
1200  QIUTOT=JIUTOT*OIM(I)*:w«UvEC(I) 

GOTO  1300 

1253  3lUTDT=yIjTOT<-3IN(I)*:w«'JIN(I) 

1  303  CONTINUE 

3PUT3T=0.00 
00  1500  IP=1/NPdC 
IFIjPLlTRd’))  1400/1400/1450 
1400  I=IA3S(I?3C(IP) ) 

3putot=gputot*3plitr(ip)*cw*uvec<i) 

SOTO  1500 

1450  3PUTOT  =  3PUTOT«-3PLITR(IP)*CW*J3C(IP) 

1500  continue 

I  F  <  M  = )  1  550/  1  550/  1  61  5 

. output  solute  mass  budget 

1550  WRITE (6/1 600)  IT/FLOTOT,$LOTOT/P1FTOT/P1STOT,POFTOT,POSTOT, 

1  JIUTOT/OPUTOT/ DQUTDT 

1600  FORMAT (//ItX/'S  OLUTE  BUDGET  AFTER  TIME  STEP  */I5 

1  ',  IN  (SOLUTE  MASS/ScCONO)'///11X,1PD15.7,5X,'NET  RATE  OF  */ 

2  '  INCREASE!*) /DECREASE(-)  OF  $ OLU T E ' / 1  1  X , 1  PD  1 5 . 7, 5 X , 

3  'NET  RATE  OF  INCREASED) /DECREASE!-)  OF  ADSORBATE '/ 1 1 X, 1 PD1 5 . 7 

4  5  X  ,  '  NE  T  FIRST-OROER  PRODUCTION  (♦  )  /  DECAY  !  -  )  OF  SOL'J  T  E  *  /  1  1  X  / 

5  1P015.7/5X/'NET  FIRST-OROER  PRODUCTION (♦  ) /DECAY (-)  OF  */ 

6  ' AOSORBATE* /I  1 X/1 P J1 5- 7/ 5X/ 'NET  ZERO-ORDER  PR ODUC T I  ON < ♦ ) / ' / 

7  'DECAY!-)  OF  SOLUTE '  / 1 1X/1PD1 5 .7/5X/'NET  ZERO-ORDER  '/ 
d  '  “ROOUCT  ION!*) /OECAY  (-)  OF  A  0  S  OR  8  A  T  E  '  /  1 1  X  ,  1  P  D 1  5 . 7 , 5  X  , 

9  'NET  GAIN!*)/L0SS!“)  OF  SOLUTE  THROUGH  FLUID  SOURCES  AND  SINKS 
*  /11X/1P015.7/5X/'NET  GAIN!*) /LOSS!-)  3F  SOLUTE  THROUGH  '/ 

1  'INFLOWS  OR  OUTFLOWS  AT  POINTS  OF  SPECIFIED  PRESSURE' 

2  /11X,1P015.7/5X/'NET  G A  I N < ♦ ) / L 0 S S < - )  OF  SOLUTE  THROUGH 

3  'SOLUTE  SOURCES  AND  SINKS') 

SOTO  1645 


. OUTPUT  ENERGY  BuOSET 

1615  WRITE(6/Id35)  IT,FLOTDT,SLDTOT,POFTOT,POSTOT,3IUTOT,OPUTOT,03UTOT 
1635  ‘F0RMAT(//11X/'E  NERGY  BUDGET  AFTER  TIME  STEP  '/I5 

1  '/  IN  (ENERGY/SECONO) ' ///I  1 X/1P01 5. 7/5X, 'NET  RATE  OF  '/ 

2  '  INCREASE (*) /DECREASE ( ->  OF  ENERGY  IN  FL U  I  0  ' / 1 1 X , 1  PD  1 5 . 7, 5 X , 

3  'NET  RATE  Oc  I NC R E A SE ( ♦ ) / DEC R E A S E ( - )  OF  ENERGY  IN  SOLID  GRAINS 

4  / 1 1 X/ 1 ?01 5 . 7, 5X/ 'NET  ZERO-ORDER  P R 0  DU C T I  0 N ( * ) / LO S S ( - )  Op  ' / 

5  'ENERGY  IN  clUI0'/1 1 X/ 1P01 5.7/5X,'NET  ZERO-OROER  '/ 

6  'PRODUCTION!*) /LOSS!-)  OF  ENERGY  IN  SOLID  GRAINS' 

7  /  1  1 X, 1 P01 5  .  7/ 5x,' NcT  G A  I N { ♦ ) / L 0 S S ( - )  OF  ENERGY  THROUGH  FLUID  ' 

a  'SOURCES  AND  S  I N  K  S  '  /  1  1  >  /  1  P  0  1  5  .  7  /  5  X  ,  '  N  E  T  G  A  I  N  ( * )  /  L  0  S  S  (  - )  OF  '/ 

9  'ENERGY  THROUGH  IN=LOW<  OR  OUTFLOWS  AT  POINTS  OF  SPECIFIED  '/ 

•  '  =>RE  SSJRE  *  /  1  1  X,  IPO  1  5 . 7/5X/ 'NET  G  A  I  N  (  *  >  /  LO  S  >  (  -  >  OF  ENERGY  '/ 

1  'THROUGH  ENERGY  SOJRCES  AN 0  SINKS') 

16-.5  NiOPI  =NS0P-1 

IF(NSOPI.EO.O)  GOTO  200C 
IF(ME)  1649,1649/1659 


X  1  21  0. . . 

XI  220  . . . 

X  1  230.  . . 
xl  240.  . . 

XI  2  50  .  .  . 

xl 2oO _ 

XI  270.  .  . 
x 1 280. . . 
XI  290.  . . 
x 1 300 . . . 
XI  310. . . 
x  1  320. . . 
x  1  330. . . 
xl 340. . . 
XI  350. . . 
x 1 360. . . 
xl 370. . . 
xl  380. . . 
xl  390. . . 
xl  400. . . 
X  1  4 1 0. . . 
X 1 4 20  .  • . 
X 1 4  30 . . . 
XI 440.  .  . 
X  1  4  5  0 .  .  . 
XI 460.  .  . 

/X1470... 
X 1 480 . . . 
X 1 4  90  .  .  . 
/XI  500.  .  . 

X  1  5  1  0 .  .  . 

XI  520. . . 
XI  530. . . 
XI  540. . . 
X 1 5  50 . . . 

' XI 560. . . 
XI 570. . . 
XI  580. .  . 
Xl  590. .  . 
X 1 600 . . . 
X1610... 
XI 620. . . 
x 1 630 . . . 
XI  640. . . 
, x 1  650. . . 
XI  660. .  . 
X 1 670.  .  . 
' X 1 680 . . . 
xi 690. . . 
X 1 700. . . 
X1710... 
, xl  720. . . 
x  1  7 30 . . . 
XI  740. . . 
x  1  750 . . . 
X 1  760.  . . 
Xl  770. .  . 
xl  780. . . 
xl  790. . . 
X 1  300. . . 


r 


SuaRDjTINc 
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Sutra 


VERSION  1 284-20  X 1 0 


1649  WRITE(6,165G) 

1650  FORMAT (/ //22X, 'SOlUTE  SOURCES  OR  SINKS  AT  FlUIO  SOURCES  AND  ', 

1  *  SINKSV/22X,  '  NODE  *  /  8X/ *  SOURC  E  (  ♦  )  /  SI  NIK  (- )  '  /  32x, 

2  '(SOLUTE  MASS/ SECOND)  '/) 

GOTO  1660 

1659  wRITE(6,1o6u> 

1660  *=ORMAT(///22X, 'ENERGY  SOURCES  OR  SINKS  AT  fLUID  SOURCES  AND  '/ 

1  ' SINKS' // 22X, '  NODE ' ,8X ,' SOURC E ( ♦> / SINK (->'/ 37 *, 

2  * (ENERoY/SECONJ) */) 

1660  DO  1  900  I3«>  =  1, NSOPI 

I  =  IA3S< IQSOP(  I3P) ) 

IF(GIN(D)  1  700,  1  700,1  750 
1700  Ou=„lN(I) *Cw*uV£C(I) 

GOTO  1800 

1 750  3u=GlN( I) »Cw*JlN(I ) 

1300  WRITE(6,450)  1,00 
1900  CONTINUE 
C 

2000  IF(n?3C.E3.0>  GOTO  4500 
IF(ME)  2090, 2090,21 50 
2090  WRITE(6,2100) 

2100  FORMAT (/ //22X, * SOlUTE  SOURCES  OR  SINKS  DUE  TO  F  L  u I D  INFLOWS  OR  ', 

1  'OUTFLOWS  AT  POINTS  OF  SPECIFIED  P R E S S U R E  '  /  /  2 2 X ,  '  NCDE',3X, 

2  '  SOURCE  (♦)  /  SINK  ( - )  '  /  32X,  '  (  SOl'JTE  MA  S  S  /  S  E  C  ON  0  )  '  /  ) 

GOTO  2190 

2150  WRITE (6,2160) 

2160  F0RMAT(///22X, 'ENERGY  SOURCES  OR  SINKS  DUE  TO  FLUID  INFLOWS  OR  ', 

1  'OUTFLOWS  AT  POINTS  OF  SPECIFIED  PR E S SuR E ' / / 2 2 X , '  N0DE',8X, 

2  'S3URC£(+)/SINK(-)'/37x, '(ENERGY/SECOND)'/) 

2190  DO  2400  IP=1,NP6C 

I=IA3S(Ip3C(I?)) 

IF(OPlITR(IP))  2200,2200,2250 
2200  OPU=ORLITR (I3)*CW»UVEC(I) 

GOTO  2300 

2250  QPU=3PLITR(I3)*CW*U6C(IP) 

2300  WRITE(6,450)  I,QPJ 
2400  CONTINUE 

I  F  ( I  3CT.E3.**)  GOTO  4500 
NS0ul=NS0j-1 
I  N  E  G  C  T  =  0 

DO  3500  IjJ=1,NS0jI 
I  =  IwSOU(  UU) 

IF  (  I  )  3‘*0j,  3500,  3500 
34uO  In=jCT=INEGCT*1 

I F ( m E )  3450, 3*50, 34oD 
345  0  IF (INcGCT.  E„.  1  )  WRITE (  6  ,  3  4  5  5  ) 

3455  =^RMAT  (/  /  /  22k,  '  TI  4E_D£PENjENt  SGLvjTE  SOURCES  AND  SINKS'//22x, 

1  '  NODE ' , 1  OX, 'GAlN(* ) /LOS j(-) ' /30x, '  (SOLUTE  maSS/SECDnD) '  /  / ) 

GOTO  5475 

5-a  0  Ir(IN;GCT.E„.1)  WRITC(6,3*.65) 

3  4  d  5  =0RMiT(///?2«,'TIME-D.RLNjENT  ENERGY  D  ,j  R  4  E  S  AND  SINkS'//22k, 

1  '  N  0  - E '  ,  10  * ,  '  G A  I N ( » ) / L  0  S  S ( * )  ' / 3  5  * , '  (ENERGY/SECOND)  '//) 

3475  CONTINUE 

»RITE(6,3-.5W)  -  I  ,  .  U  I  \  (  -  I  ) 

3  4  9  0  c^RM1T(22*,I5,1^y,1?D1K.7) 

3  5  j  o  c  j  n  r :  n  j  e 


-5„C  CONTINUE 


xl 810.  . 
XI  820  .  . 
XI  830.  . 
xl  840.  . 
XI  350.  . 
X  1  860.  . 
xl  370  .  . 
X  1  360.  . 
xl  890. . 
xl  900.  . 

X  1  9  1  0  .  . 
xl  920.  . 

XI  930.  . 
XI 9l0.  . 
XI  950.  . 
x  1  9e0 . . 
XI  970.  . 
XI  980.  . 
XI  990.  . 
X  2000 . . 
X231 0. . 
x 2  02 0 . . 
X  2  0  3  0  .  . 
x 2040 .  • 
X2050. . 
X2060. . 
X  2  0  70  .  . 
X2D30. . 
X 2090 .  . 
X21 00.  . 
X21 10.  . 
X21 20.  . 
X 2 1 30.  . 
x21 40. . 
x 2 1 50. . 
x  2 1  60  . . 
X21  70. . 
X 2 1 60.  . 
X2190. . 
X  2  2 00 .  . 
x  2  2  1  0  . . 
x  2  2  2  0 .  . 
x 2 23 C .  . 
x  2  2  4  0 .  . 
X  2  2  5  0  .  . 
x  2  2oO  . . 
X  2  2  7  0  .  . 
x  2  2  8  3  .  . 
X2  290.  . 
x  2  300  . . 
x  2  3  1  0  .  . 
x  2  32  0  .  . 
x  2  3  3  0  .  . 
X  2  3  4  0  .  • 
x  2  3  5  0  .  . 
X  2  3  6  0  .  . 
X  2  3  70  .  . 
x  2  3  6  3  .  . 
x  2  7  9  0  .  . 
X  2  A  0  -  .  . 
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Li  Li 


C  SUBROUTINE  STORE  SUTRA  -  VERSION  1234-20  VI") 


C  SUBROUTINE  STORE  Sutra  -  VERSION  123h-20  Y 1 0 _ 

:  Y20. . . 

c  ***  purpose  :  Y30. . . 

TO  STORE  RESULTS  THAT  MAY  LATER  BE  JSEO  TO  RE-START  YO... 

***  THE  SIMULATION.  Y  5  D .  .  . 

C  Y  o  0 _ 

subroutine  store ( pve c,uvec,pmi ,umi ,cs i ,rc it, s*  ,  pbc)  y 70 _ 

implicit  double  precision  (A-H,0-Z)  y 3 0 . . . 

COMMON/DIMS/  NN,NE,NlN,NBI,NB,NBHALF,NPINCH,NPBC,NUbC,  Y90... 

1  NSOP/NSOU/NBCN  Y10U.. 

COMMON/ T I  ME /  OElT,TSEC,TMIN,T-IOUR,TQAY,TWEEK,TMCNTH,TYEAR,  y 1 1 c .  • 

1  T  MAX,D£LT=>,  0ELTU,DLTPM1  ,  jLTUMl  ,  I  T,  I  TMA  A  Y12C.. 

dimension  pvec(nn),uvec(nn),pmknn),um1(nn),csi(nn),rc:t(nn),  y 1 3 j.  . 

1  SW(NN),PBC(N3CN)  Y 1 4  c .  . 

C  Y1 50.  . 

C . REWIND  UNIT-60  FOR  W  R I T I N  j  RESULTS  OF  CURRENT  TIME  STEP  Y160.. 

REWIND C06)  Y 1 7  U . . 

C  Y  1  3  0  .  . 

C . STORE  TIME  INFORMATION  Y 1 9  0 . . 

WRITE(6e,10G)  TSE:,DElTP,OElTj  Y200.. 

100  FORMAT (4020. 1  0)  Y  2 1 0 . . 

C  Y  2  2  0  .  . 

C . STORE  SOLUTION  Y23Q.. 

WRITE(6o,1  10)  (PVEC(I),I  =  1,NN)  Y  2  4  u  .  • 

WR I T  E ( 66, 1 1 0 )  (UVEC(I),I-1,NN)  Y2  50.. 

WRITE(6o,110)  (PM1 (I),I  =  1,NN)  Y  2  6  0 . . 

WRITE (66, 1 10)  (UM1  (I ) ,1=1 ,NN)  Y270.. 

WRITE (66, 1 1 0)  (CS1 (I),I=1,NN)  Y230. . 

WRITE (66, 1 10)  (RCIT(I),I=1,NN)  Y290.. 

WRITE (66/110)  (SW(I),I  =  1,NN)  Y  3  00 . . 

WRITE (60, 1 10)  (P3C(IP)  ,IP  =  1 ,N3CN)  Y310.. 

110  =URMAT (4 ( 1 P0  20. 1  3) )  Y  3  2  0 . . 

C  Y  3  3  0  .  . 

ENDFILE(66)  Y340.. 

C  Y  3  5  0  .  . 

RETURN  Y  360 . . 

ENO  Y  3  70 . . 


Rail  i.i  I  Knerny  Transport 
K.xamp  1  o 


3K1 


PREVIOUS  PAGE 
IS  BLANK 


AD-A156  779 
UNCLASSIFIED 


SUTRA  (SRTURATED-UNSATURRTED  TRANSPORT)  A 
FINITE-ELEMENT  SIMULATION  MODEL  .  <U>  GEOLOGICAL  SURVEV 
RESTON  VA  WATER  RESOURCES  DIV  C  I  VOSS  38  DEC  84 
USGS/WRI/84-4369  AFESC/ESL-TR-85-18  F/G  9/2 


5/5 


NL 


MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  BIJRIAu  Of  STANDARDS- 19bi  A 


4  4 

100.9194 

1.0000 

634.095 

1 

.000 

45 

109.5571 

0.0000 

683. 367 

1 

.000 

46 

109.5571 

1.0000 

633.367 

1 

.000 

47 

118.7202 

0. 00 oo 

745.940 

1 

.000 

43 

118.7202 

1.0000 

745.940 

1 

.000 

49 

123.4405 

0.0000 

807.015 

1 

.000 

50 

123.4405 

1.0000 

807.015 

1 

.000 

51 

1 33.7520 

0.0000 

871.804 

1 

.000 

52 

133.7520 

1.0000 

871.804 

1 

.000 

53 

1  49.0907 

0.0000 

9,0.533 

1 

.000 

54 

149.6907 

1.0000 

940.533 

1 

.000 

55 

161 .2946 

0.0000 

1013.443 

1 

.000 

56 

161 .2946 

1.0000 

1013.443 

1 

.000 

57 

173.6042 

0.0000 

1090.736 

1 

.000 

53 

173.6042 

1 .0000 

1390.786 

1 

.300 

59 

186.6625 

0.0000 

1172.334 

1 

.000 

60 

1 86.6625 

1.0000 

1172.334 

1 

.000 

61 

200.5150 

0. 0000 

1259.872 

1 

.003 

o2 

200. 51 50 

1.0000 

1259.372 

1 

.000 

o3 

215.2099 

0 . 0  0  j  0 

1  352.203 

1 

.000 

64 

215.2099 

1.0000 

1  352.203 

1 

.000 

65 

230.7986 

0.0000 

1450.149 

1 

.300 

66 

230.7966 

1.0000 

1450.149 

1 

.000 

67 

247.3354 

0.0000 

1554.052 

1 

.000 

68 

247.3354 

1.0000 

1554.052 

1 

.000 

69 

264.8778 

0.0000 

1664.275 

1 

.000 

70 

264.3778 

1.0000 

1 664.275 

1 

.000 

71 

283.4872 

3.0000 

1781.201 

1 

.000 

72 

233.4872 

1.0000 

1 781.201 

1 

.000 

73 

503.2283 

O.OOJO 

1905.238 

7 

.000 

74 

303.2283 

1.0000 

1905.238 

1 

.000 

75 

324.1701 

0.0000 

2036.31  9 

1 

.000 

76 

324 ; 1 701 

1.0000 

2036.819 

1 

.003 

77 

340.3356 

O.OOJO 

2176.403 

1 

.000 

73 

346.3856 

1 .OOJO 

2176.403 

1 

.000 

79 

369.9521 

0.0000 

2324.476 

1 

.003 

30 

369.  9521 

1.0000 

2324.476 

1 

.000 

31 

394.9519 

0.0000 

2431.554 

1 

.000 

82 

394.9519 

1 .0003 

2461.554 

1 

.000 

83 

419.1538 

0.0000 

2633.619 

1 

.000 

34 

419.1538 

1.0000 

2633.619 

1 

.000 

85 

443.3557 

0.0000 

2785.634 

1 

.000 

86 

443.3557 

1.00JC 

2735.634 

1 

.000 

37 

46  7 . 55  76 

0 . OOJO 

2937.749 

1 

.000 

33 

467.5576 

1.0000 

2937.749 

1 

.000 

39 

491 . 7595 

0.0000 

3039.313 

1 

.000 

90 

491 .7595 

1.0000 

3089.313 

1 

.000 

91 

515.9614 

O.OOJO 

3241 .373 

1 

.000 

92 

515.9614 

1 .0000 

32,1.373 

1 

.000 

93 

540. 1 633 

0. JOOC 

3393.943 

1 

.000 

94 

540.1633 

1.0000 

5393.943 

1 

.000 

95 

564 . 3652 

0.0000 

3546.003 

1 

.300 

96 

564.3652 

1 .0000 

3546.008 

1 

.000 

99 

583.5671 

0.0000 

3693.073 

1 

.000 

95 

538.5671 

1.0000 

3698.073 

1 

.000 

90 

612.7690 

3.0000 

3850.133 

1 

.000 

jO 

612.7690 

1 . 0030 

3350.133 

1 

.300 

01 

636.9709 

0.0000 

4002.203 

1 

.003 

102 

o  3o .  9  709 

1.0000 

4002.203 

1  .000 

10  3 

061. 1730 

O.OOoO 

41 54.2s9 

1.000 

1.1 

o61 . 1730 

1.0000 

*1 54 .2o9 

1.000 

1.5 

633.27*9 

0.0000 

43j6. 333 

1.000 

1  05 

085.3749 

1.0000 

*306.353 

1.000 

1.7 

709.5703 

0.0000 

**58.393 

1.000 

103 

?09.57o8 

1 .0000 

*453.393 

1.300 

1  J9 

733.7787 

0.0000 

4610. 4  0  3 

1.000 

1  1  0 

735.7787 

1.0000 

4610.463 

1.000 

1 1 1 

757.9306 

0.0000 

*762.523 

1  .000 

1  1  7 

757.9806 

1 .uO oc 

*’62.523 

1  .000 

1 1  3 

732.1825 

0.0000 

*914.593 

1.000 

114 

732.1825 

1 .0000 

4914.593 

1  .000 

1  1  5 

800.3344 

0.0000 

5066.6  53 

1 . 000 

1  1  6 

oOo. 3344 

1.0000 

5  0o6 . 65  3 

1.300 

1  1  7 

830. 5  3 o  3 

0.0000 

5218.723 

1.000 

1 1  3 

330.5803 

1.0300 

5218.723 

1.000 

119 

85*. 7332 

O.OOOO 

5370.788 

1.000 

120 

35*. 7882 

1.0000 

5370.738 

1.000 

121 

373.9901 

3 • 0  0  uO 

5522.353 

1.000 

122 

373.9901 

1.0000 

5522.853 

1.000 

123 

903.1920 

0. 0000 

5674.91 8 

1  .000 

124 

903.1920 

1.0003 

5674.91 8 

1.000 

125 

927.39.0 

0.0000 

5326.933 

1.000 

125 

927.5940 

1.0000 

5826.963 

1.000 

1  *7 

951 .5959 

0.0000 

5979.049 

1  .000 

123 

951.5959 

1.0000 

5979.049 

1.000 

12’ 

975. 7979 

0. 0000 

o131.11! 

1.000 

130 

975.7979 

1 .0000 

0131.113 

1.000 

1  o  1 

999.9998 

0.0000 

6233.173 

1.000 

132 

999.9998 

1.0000 

6283.173 

1  .000 

l ; ment 

1.02-11 

1.02-1 1 

0.000 

1 

1 .OOE’OO 

1  .OOE’OO 

1 .OOE’OO 

2 

1 .OOE’OO 

1 .OOE’OO 

1 .OOE’OO 

3 

1 .OOE’OO 

1 .OOE’OO 

1 .OOE’OO 

4 

1 .OOS’OJ 

1 .OOS’OO 

1 .OOE’OO 

5 

1 .OOE’OO 

1 .OOE’OO 

1 .OOE’OQ 

6 

1 .OOE’OO 

1 .OOE’OO 

1 .OOE’OO 

7 

1 • COE’OO 

1 .OOE’OO 

1 .OOE’OO 

3 

1 .OOE’OO 

1 .OOE’OO 

1  .OOE’OO 

9 

1 .OOE’OO 

1  .OOE’OO 

1 .OOE’OO 

10 

1 . 0 JE  *00 

1 .OOE’OO 

1 .OOE’OO 

1 1 

1 .OOE’OO 

1 .OOE’OO 

1 .OOE’OO 

12 

1 .OOE’OO 

1 .OOE’OO 

1  .OOE’OO 

1  3 

1 .OOE’OJ 

1  .OOE’OO 

1 .OOE’OO 

1  4 

1 .OOE’OO 

1  .OOE’OO 

1 .OOE’OO 

1  3 

1. OOE’OO 

1  .OOE’OO 

1  .OOE’OO 

16 

1 .OOE’OO 

1 .OOE’OO 

1. OOE’OO 

17 

1 .OOE’OO 

1 .OOE’OO 

1  .OOE’OO 

13 

1 .OoE’OO 

1 .OOE’OO 

l.OJE’OO 

19 

1 .OOE’OO 

1 .OOE’OO 

1  .OOE’OO 

20 

1 .OOE’OO 

1 .OOE’OO 

1 .OOE’OO 

21 

1 .OOE’OO 

1 .OOE’OO 

1 . OOE’OO 

22 

1 .OOE’OO 

1.005*00 

1  .OOE’OO 

23 

1 .OJE’OJ 

1 .OOE’OO 

1 .OOE’OO 

24 

1  .OOE’OO 

1 .OOE’OO 

1  .OOE’OO 

25 

1  .OOE’OO 

1 .OGE’OO 

1  . OOE’OO 

26 

1  .OOE’OO 

1 .OOE’OO 

1  .OOE’OO. 

10. C  10.0  0.0  »15A  SCAl 

1.0  1.00  1.000  »15B 

1.0  1.00  1.000  ELEMENT- 

1.0  1.00  1.000  WISE 

1.0  1.00  1.000  DATA 

1.0  1.00  1.000 

1.0  1.00  1.000 

1.0  1.00  1.000 

1.0  1.00  1.000 

1.0  1.00  1.000 

1.0  1.00  1.000 

1.0  1.00  1.000 

1.0  1.00  1.000 

1.0  1.00  1.000 

1.0  1.00  1.000 

1.0  1.00  1.000 

1.0  1.00  1.000 

1.0  1.00  1.000 

1.0  1.00  1.000 

1.C  1.00  1.000 

1.0  1.00  1.000 

1.0  1.00  1.000 

1.0  1.00  1.000 

1.0  1.00  1.000 

1.0  1.00  1.000 

1.0  1.00  1.000 

1.0  1.00  1.000 


27 

1 .305+30 

1 .006  +  00 

1  . 306  +  03 

1  .0 

1  .00 

1  .300 

2  3 

1.005+30 

1  • 006  +  00 

1.335+03 

1.0 

1 .30 

1 .003 

29 

1 . 00  E  *  3 3 

1 .006+03 

+ .035+30 

1  .3 

1.34 

1 .300 

30 

1  . 0 36 ♦ 33 

1.006+30 

1.035+00 

1.3 

1 .00 

1 .300 

31 

1  .006+30 

1 .006+00 

1 .005+04 

1.0 

1  .00 

1.000 

32 

1 .036+33 

1.005+03 

1 . DOE  +  00 

1  .3 

1.30 

1.003 

33 

1 .30E+33 

1.006+03 

1.006+30 

1  .0 

1.03 

1  .000 

3- 

1 .00E+03 

1.035+00 

1.336+00 

1.0 

1.30 

1.300 

35 

1 .C36+33 

1 .006+03 

1 .306  +  00 

1.0 

1 .30 

1 .000 

3o 

1 .00E+30 

1.006+00 

1 .006  +  03 

1.0 

1  .00 

1.000 

37 

1.306+33 

1 .036+00 

1 .006+00 

1.0 

1.00 

1.000 

53 

1 .03E+30 

1.006+00 

1.335+30 

1.0 

1 .30 

1.003 

39 

1.006+33 

1 .006+00 

1 .006+0u 

1.0 

1.00 

1.000 

40 

1 .036+33 

1.006*00 

1  .OOE+OO 

1.0 

1.00 

1.000 

4  1 

1.036+33 

1 .006+00 

1.035+00 

1.0 

1.00 

1.000 

42 

1 .036+33 

1.006+00 

1.035+00 

1  .0 

1.00 

1.000 

43 

1 .036+03 

1 .036+00 

1 .006+03 

1.0 

1.00 

1.000 

4  *♦ 

1 .03E+33 

1.036+00 

1.305+00 

1  .0 

1.00 

1.300 

45 

1 .035+00 

1.006+00 

1.03E+03 

1  .0 

1.00 

1.000 

4  o 

1 .006+30 

1.006+00 

1 .006+00 

1.0 

1.00 

1 .000 

47 

1 .036+30 

1 .006+00 

1 .006+00 

1.0 

1.00 

1  .000 

4  6 

1  .336  +  33 

t.OOE+CO 

1 . 336  +  00 

1.0 

1.00 

1.000 

49 

1 . 006+33 

1.006+00 

1.006+30 

1.0 

1.00 

1.000 

5  J 

1 .006  *30 

1 .006+00 

1 .006+00 

1.0 

1  .00 

1  .000 

51 

1.036+30 

1.036+03 

1 .006  +  00 

1  .0 

1.00 

1 .000 

52 

1 .006*33 

1 .OjS+OO 

1.335+00 

1.0 

1.00 

1.000 

53 

1.006+33 

1.336+00 

1 .305  +  33 

1  .0 

1 .30 

1.000 

54 

1.00E+30 

1.006+00 

1.336+00 

1.0 

1.00 

1.000 

55 

1.036+33 

' .006*00 

1.036+30 

1 .0 

1  .00 

1.000 

5o 

1 . 336+33 

1 .005+00 

1.036+03 

1 .0 

1  .00 

1.000 

57 

1 .006+33 

1 •  0  4  r  ♦  0  0 

1 . 036  +  03 

1.0 

1.03 

1.000 

5o 

1.006+33 

1 .335+00 

1.035+00 

1.0 

1.00 

1.000 

59 

1 . 006 ♦ 3 J 

1.005*00 

1 .006+03 

1.0 

1.00 

1.000 

60 

1 .OuE+OO 

1.006+00 

1.335+00 

1.0 

1.00 

1.000 

61 

1.006+30 

1 .006+00 

1.036+00 

1  .0 

1.30 

1.000 

62 

1 . 0u6+3j 

1  .006  +  03 

1.336+00 

1.0 

1.00 

1.000 

63 

1.006+30 

1 .03E+00 

1.336+00 

1.0 

1.00 

1.000 

6** 

1 .036+30 

1 • 006  +  0u 

1 . 336+00 

1.0 

1.00 

1.000 

65 

1.035+33 

1  .006  +  00 

1.036+00 

1.0 

1.00 

1.000 

1 

156. 

250-0 

1 .000-3 

*17  FLUID 

2 

156. 

2  50-3 

1.300-0 

SOURCES 

3 300 OuOOOO 303003333 J003 300000000030000003030003000000030003000000000000000000000 
132  0.03000030  <19  SPECIFIED 

131  98000.00000000  PRESSURES 

OUOOOO 3 00 03 0000030 3 30 0 3000 3 3 00300000003 JOGOuOOOOOOOOOOOOOOOOOOOOOOOOOQOOOOOOOOOO 

1  1.03000000  <20  SPECIFIED 

2  1.03030000  TEMPERATURES 

00  3u3 3 33 3 JOoOOOj 30 33 3 3 33 3030 000 300 0300 3030 30 0030000000 00003000300 300000000 000000 

45  *21  OBSERVATION  NODES 

34  52  o  4  72  33 


*22  NODAL  INCIDENCES 


UNIT-55 


3.30000000000*00 

03*3a 

33*0e 

0D*0a 

00*06 

G3*3o 

00*Ga 

00*06 

30*0e 

oo*3a 

oo*oa 

03*0a 

OD*Oa 

00*3a 

30  ♦  Oo 

03*0a 

00*06 

0D*0e 

00  +  0a 

JD*3a 

00*06 

03*36 

JO*Oa 

00*0a 

0D*06 

03*3a 

3  3  ♦  3  a 

OO  +  Oa 

00*06 

00+  3a 

03*3e 

00*0a 

OD*Oa 

00*3a 

00*3o 

00*06 

00*06 

03*36 

30*0a 

0D*06 

00*0e 

0  D  ♦  Q  a 

30*0e 

00*06 

00*06 

00*36 

00*0a 

00*36 

00*06 

0D*3a 

30*0a 

00*06 

0D*0a 

j0  +  3a 

30*0a 

OD  ♦  06 

00*06 

JO*  3a 

J0*0o 

00*06 

00*06 

J0*0a 

30*06 

00*06 

00*06 

J3*3a 

J0*0a 

OD*Oa 

OD*  06 

00*Qa 

30*0a 

OD  +  Oa 

00*06 

00*3a 

00*0a 

00*0a 

00*05 

J0*3a 

00*05 

00*05 

00*05 

0  3*05 

00*05 

00*35 

00*05 

00*05 

30*05 

00*05 

00*05 

u0*05 

00*05 

00*05 

00*05 

00*35 

30*05 

00*05 

00*05 

30*35 

30*05 

00*35 

00*05 

00*35 

00*05 

00*05 

00*05 

33*35 

00*35 

00*05 

0D*05 

00*35 

30*05 

00*35 

OD*05 

00*35 

00*05 

0D*05 

00*05 

00*35 

00*05 

00*05 

00*05 

03*35 

03*05 

OD*05 

00*04 

03*35 

00*04 

0D*3  5 

0D*04 

00*35 

00*04 

00*04 

00*00 

3.000-30 

0.000-30 

0.000-30 

0.000-00 

0.003-30 

0.300-00 

O.OOD-OO 

O.OOD-OO 

0.000-30 

0.300-00 

0.30D-30 

0.000-00 

0.003-30 

0.000-30 

O.OOD-OO 

0.000-00 

0.000-30 

0.000-00 

0.000-30 

0.000-00 

3.003-00 

0.000-00 

0.000-00 

0.000-00 

3.000-30 

0.300-00 

0.000-30 

0.000-00 

0.000-3J 

0.000-00 

O.OOD-OO 

O.OOD-OO 

0.003-30 

0.000-00 

0.000-00 

O.OOD-OO 

0.000-30 

0.300-00 

0.000-00 

O.OOD-OO 

3.000-30 

0.000-00 

0.000-00 

0.000-00 

3.000-00 

0.003-00 

0.000-00 

0.000-00 

0.000-00 

0.030-00 

0.000-00 

0.000-00 

3.000-00 

0.300-00 

0.000-00 

0.000-00 

0.000-30 

0.000-00 

0.000-00 

0.000-00 

0.000-30 

0. 300-00 

0.000-00 

0.000-00 

0.003-30 

0.000-00 

0.000-00 

0. 000-00 

3.300-30 

0.000-00 

0.000-00 

0.000-00 

3.000-33 

0.300-00 

0.000-00 

0.000-00 

0.000-30 

0.000-30 

0.000-00 

0.000-00 

0.300-30 

0.000-00 

0.000-00 

0.000-00 

3 . 003-0 J 

0.000-00 

0.000-00 

O.OOD-OO 

O.OuO  —  00 

0.030-00 

0.000-30 

0.000-00 

3.000-30 

3.000-00 

0.000-00 

0.000-00 

Appendix  D: 


Output  Listing  for 
Radial  Energy  Transport 
Example 


PREVIOUS  PAGE 
IS  BLANK 


PREVIOUS  PAGE 
IS  BLANK 


0.00000  "UPSTREAM  WEIGHTING"  FACTO* 

00000*02  SPECIFIED  PRESSURE  BOUNDARY  CONDITION  FACTOR 


22 5  maximjm  allowed  nuhse«  of  time  step* 

0213005  INITIAL  TIME  STEP  (IN  SECONDS) 

2*€>dq*25  maximum  allowed  simulation  time  (in  seconds) 


FUNCTION  OF  T  tMPERfiTURE  IN  UNITS  of  rKg/(m*s)3 


3 1 C 
f  IN 


*cSuLTS  POP  TIME  $T£P 


,1 


•O 

o 

O 

A 

o 

■o 

A 

O 

A 

A 

A 

<3 

A 

A 

A 

A 

A 

A 

A  A 

4 

O 

O 

O  O  O  O  o  o 

o  o  o 

O 

O  O 

O 

o 

O 

o  o  o  □  o  o 

+ 

♦ 

♦ 

4 

♦ 

+ 

♦ 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4  4 

4 

4 

a 

a 

o 

o 

o 

O 

O 

Q 

O 

O 

O 

a 

O 

O 

o 

O 

o 

O 

n  Q 

Q 

Q 

o 

o  o 

■O 

aO 

o 

rD 

*— 

O 

O  A 

rg 

o 

A 

o 

fg 

eg  4 

G 

C3 

»— 

4 

A 

rg 

43 

A 

T— 

o 

o 

rg 

A 

A 

A 

fg 

*— 

fg 

A 

O  •©  A  O 

*— 

o 

4 

rg 

4 

N- 

O 

4 

rg 

A 

A 

A 

rg 

v— 

O 

o 

4 

A 

A  •— 

T— 

O 

A 

o 

rg 

O 

ao 

A 

A  O' 

A 

O 

A 

4 

O' 

A 

fg 

A 

CO  O 

A 

O 

N- 

O  A 

A 

HI 

A 

A 

-4 

A 

O 

O 

O 

r- 

fg 

O 

O 

O  O  rg 

A 

fg 

4 

rg 

fg 

43 

A 

A 

A  A 

4 

A 

A 

A 

A 

fg 

T— 

fg 

A  A 

rg  rg 

o 

4 

A 

o 

43 

A 

rg  rg 

A 

A 

fg 

fg 

4 

fg 

O' 

-o 

A  O  4 

A 

A 

4 

•o 

*“ 

oo 

A 

rg 

a 

A 

A 

4 

rg  o  o 

4 

O 

A 

A 

O' 

*—  A 

4 

A 

A 

l-l 

rg 

rg 

rg 

rg 

- 

- 

- 

- 

- 

O' 

fg 

A 

4 

A 

rg  rg  *- 

O 

- 

Hi 

o 

rg 

CO 

4 

O 

A 

rg 

A 

-4 

o 

A 

rg 

A 

4 

O 

O  rg 

A 

4  O 

G 

rg 

Q 

r- 

*— 

rg 

A 

A 

«4 

4 

A 

A 

A 

fg 

fg 

A 

o 

O' 

O  O 

•-  rg 

rg  a 

Z 

«— 

*— 

a 

A  A 

A 

« 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A  A 

A 

4 

o 

o 

o  a  o  o  o  o 

O  O 

O  O  O 

O 

o  o 

o 

o  o  o 

o  o 

♦ 

♦ 

4- 

4 

♦ 

♦ 

♦ 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4  4 

4 

4 

a 

a 

o 

Q 

o 

a 

a 

a 

a 

C3 

a 

O 

a 

O 

O 

a 

a 

o 

Cl  C3 

C3 

O 

o 

o  o 

43 

oo 

o 

o 

«— 

o 

o 

4 

rg 

o 

A 

-o 

fg 

rg  g 

A 

A 

*— 

4 

A 

rg 

43 

A 

*— 

r~ 

o 

O  rg 

A 

eg 

A  fg 

«— 

fg 

A  C>  O 

r— 

eg 

r— 

o 

4 

rg 

r- 

o 

4 

rg 

A 

A 

A 

A 

*- 

o 

o 

4 

A 

A  r- 

A 

A 

A 

o 

r\J 

O 

ao 

4 

A 

A 

O 

A  O 

O 

4 

o 

A 

fg 

A 

oo  o 

O 

A 

r~ 

o 

A 

A 

HI 

*- 

A 

A 

4 

A 

O' 

O 

A 

<r« 

fg 

o  o 

O  O  rg 

rg 

r— 

ITS 

-t 

T— 

rg 

r— 

A 

4 

rg 

A  A 

A 

A 

fg 

«— 

fg 

A  A 

A  O 

O 

-I 

A  O 

A  A 

rg 

rg 

A 

A 

fg 

o 

rg 

A  fg 

4 

co  rg 

rg 

o 

A 

rg 

O 

4>  HI 

O 

fg 

A 

A 

— 

o 

4 

O 

CO 

A 

O  O  A 

A  A 

4 

A 

f-1 

rg 

rg 

rg  rg 

- 

- 

- 

- 

- 

- 

A 

fg 

A 

4 

A 

A  rg 

- 

o 

UJ 

A 

fg 

HI 

O 

A 

fg 

A 

O' 

A 

t 

fg 

A 

O 

A 

fg 

A  o 

A 

o 

*— 

rg  rg 

A 

-t 

4 

A 

A 

A 

fg 

fg 

A 

A 

O 

O 

o 

r— 

eg 

A 

o 

z 

*” 

*“ 

**  *“ 

*- 

A 

o 

G 

O 

43 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A  A 

4 

4 

o 

o  o  o  o 

O  O  O  O  O  O 

O  O 

o 

O  O  O  O  Cl  o 

O 

O 

♦ 

♦ 

4 

♦ 

♦ 

4- 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4  4 

4 

4 

o 

Q 

o 

O 

Q 

o 

Q 

o 

a 

O 

a 

O 

a 

Q 

Q 

a 

o 

a 

a  o 

a 

O 

4 

no 

ao 

«— 

oO 

A 

V- 

A 

A  rg 

4 

r~ 

eg 

eg 

A 

A 

O  fg 

rg  g 

A 

o 

CO 

A 

*— 

o 

O 

A 

r- 

fg 

A 

«— 

A 

A 

A 

*— 

rg 

rg 

rg 

fg 

O  A 

o 

4 

o 

o 

f-1 

fg 

O 

o 

A 

A 

A 

00 

c— 

A 

A 

O' 

fg 

fg 

O 

A 

4  A 

A 

A 

rg 

A 

A 

o 

A 

o 

r> 

A 

A 

«— 

O 

4 

A 

A 

O  A 

O 

4  fg 

CO 

O 

r~ 

i-i 

o 

o 

HI 

A 

A 

A 

•4 

A 

A 

A 

V- 

rg 

eg 

o 

C3 

o 

A 

«— 

O  a 

43 

00 

A 

rg 

O 

ao 

4 

rg 

rg 

ru 

fg 

rg  eg 

4  eg  o 

A  fg 

O' 

a  o 

»— 

o 

O  O 

•> 

O 

«— 

A 

4 

A 

O  rg 

o 

A 

fg  co 

r- 

o 

o 

0O 

A 

o 

43 

A 

A 

A 

4 

A 

A 

O' 

A 

rg 

rg 

A  A 

fg 

o 

i/i 

A 

A 

rg 

rg 

ru 

rg 

H 

- 

- 

- 

- 

O' 

fg 

A 

A 

4 

A 

rg  i- 

oo  fg 

UJ 

4 

o 

■o 

rg 

T) 

-4 

O 

A 

rg 

A 

4 

o 

A 

eg 

A 

4 

o 

<3 

eg  *3 

4 

o 

O 

rg 

rg 

A 

4 

-4 

A 

A 

A 

fg 

rg 

A 

A 

O 

o  o 

—  ^ 

rg 

A 

UJ 

z 

<* 

•o 

A 

43 

43 

A  A 

A 

AAA 

A  A 

A 

A 

A 

A 

A 

A  A 

A 

A 

DC 

o 

o  o  o  o 

O  O 

O 

O  O 

O 

O 

O  O 

OOOOOOOO 

♦ 

♦ 

4 

4 

♦ 

•f 

♦ 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4  4 

4 

4 

Q 

o 

a 

Q 

Q 

Q 

a 

O 

a 

a 

a 

o 

a 

Cl 

o  a 

a 

a 

O  O 

O 

O 

O 

4 

OO 

oo 

«— 

oo 

A 

w— 

A 

00 

r- 

4 

r- 

A 

rg 

A 

A 

O  fg 

rv  4 

o 

A 

no 

A 

o- 

o 

A 

rv 

fg 

A 

«— 

A  A 

A 

fg 

rg 

rj 

fg 

o  A 

A 

A 

O  O  i-i 

r- 

A 

O  A 

A 

A  A 

*— 

A 

4 

O 

rg 

fg 

O 

A 

4  CO 

A  O 

i/l 

rg 

O  A  O  A  O  •> 

A 

T— 

A 

*— 

O  A 

A 

A 

O 

A 

o 

4  fg 

O  A 

A 

o 

o 

HI 

A 

A 

ir. 

4 

A  oo 

rg 

*— 

fg 

rg 

o 

O 

A  fg 

o 

CO 

r- 

4 

4)  rg 

A 

O 

A 

A  eg 

A 

rg 

rg 

fg 

eg 

eg 

4 

eg  O 

*— 

O 

a 

00 

A  O 

O 

•4  O 

o 

ao  O 

A 

A 

A 

A  A 

fg 

A  O 

A 

A 

«- 

O 

4 

O  r- 

-4 

rg 

o 

rg 

A 

4 

rg  O  O 

4 

eg 

*- 

rg  a  a 

A 

•u 

wo 

A 

HI 

H> 

rg 

rg 

rg 

- 

- 

- 

- 

- 

A 

fg 

O  A 

4 

a  eg 

- 

- 

Of 

UJ 

A 

o 

a 

A  o 

A 

rg 

A  »> 

A 

fg 

A 

o 

A 

—  fg 

A  O 

a 

w- 

rg  rg 

A 

A 

4 

A 

A 

O 

O  rg 

A 

A  O 

f> 

o 

*—  r— 

eg 

rg 

o 

*— 

a. 

z 

o 

o 

o 

O 

43 

A 

O 

A 

o 

A 

o 

A 

O 

A 

A 

A 

A 

A 

A  If! 

A 

4 

o 

Cl 

o  o  o 

O  O  O  O  O  O 

O  O 

O 

O  O 

o 

o 

Cl  o 

O  O 

♦ 

♦ 

4 

♦ 

♦ 

♦ 

♦ 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4  4 

4 

4 

a 

o 

o 

O 

o 

o 

a 

O 

O 

O 

O 

O 

O 

O 

O 

o 

o 

Q 

a  o 

o 

Cl 

UJ 

o 

00 

LA 

HI 

43 

ao  O 

A 

rg 

4 

A 

A 

4 

f- 

A 

*— 

A 

O' 

O  eg 

4 

A 

OO 

»A 

fg 

r- 

N- 

A 

O 

4 

A 

rg 

4 

O' 

4 

A 

fg 

4 

fg  4 

A 

A 

4 

rg 

HI  oo 

HI 

O  a? 

A 

A 

A 

A  N- 

o 

O' 

Cj  A 

*“ 

A  A 

o 

•— 

f- 

o 

LA 

r— 

A 

HI 

o 

O 

A 

4 

A 

rg 

A 

A 

O 

A 

a  rg 

A 

4 

4 

A 

O  A 

«— 

A 

r- 

o 

4 

in 

A 

fg 

A 

fg 

A 

A 

G 

•>  eg 

A 

A 

O  oo 

4 

A 

A 

•4 

rg 

A 

A 

A 

*- 

w~ 

rg 

4 

fg 

O  eg 

4 

fg 

o 

o 

a 

A 

HI  O 

rg 

A 

O 

A 

A 

fg 

o 

eg 

A 

<3 

A 

4 

4  4 

O 

4 

«* 

*- 

4 

o 

r» 

4 

o- 

fg 

A 

A 

»- 

o 

A 

O 

•© 

A 

A 

-o  OO 

rg 

►- 

o 

4 

HI 

HI 

rg 

rg 

rg 

- 

- 

- 

- 

- 

A 

A  A 

4 

A 

M  r- 

- 

4 

*e» 

UJ 

eg 

■O 

4 

o 

O 

rg 

A 

4 

O 

O 

u 

A 

s 

o 

O 

eg 

r> 

4 

3  O 

g 

A 

O 

*— 

rg 

rg 

A 

A 

4 

A 

A 

A 

A 

fg 

A 

A  O 

O 

O 

rg 

rg 

1 

3 

Z 

*“ 

r-  ^ 

-o 

-o 

A 

43 

4> 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A  A 

A 

A 

>* 

o 

O 

o 

3 

O 

O 

O 

O 

3 

O 

O 

O  O  O  O 

o 

O 

O 

3  0  0  0 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

♦ 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4  4 

4 

4 

o 

o 

a 

O 

O 

r> 

n 

O 

r» 

O 

O 

O 

O 

Cl 

a 

a 

ri 

3 

o  n 

(1 

o 

Cl 

on 

OO 

LA 

HI 

A 

A 

o 

A 

rg 

4 

A 

A 

4 

fg 

A 

r- 

A 

O 

O  M 

4 

A 

O  A 

r- 

H- 

A 

<> 

4 

A 

eg 

4 

*— 

O 

4 

-1 

rg 

4 

fg  4 

fO 

»— 

■» 

OO  *1 

«so 

Hi  O 

A 

v- 

A 

A 

A 

A 

fg 

O- 

O 

O 

A 

*- 

H  A 

o 

4 

o 

A 

4 

A 

A 

o 

!> 

A 

4 

O  fg 

A 

A  O 

A 

A  eg 

A  A 

4 

A 

A 

A 

•— 

A 

A 

4 

A 

A 

f- 

A 

f- 

A 

A 

A 

A 

O  eg 

fg 

«— 

CO 

o 

eg 

A 

A  rg 

O 

4 

o 

A 

A 

o 

»— 

eg 

4 

fg 

«— 

O  eg 

4 

4 

o 

AJ 

■O  Hi  O 

rg 

A 

A 

A 

A 

fg 

O' 

o- 

4 

4 

<g 

fg  rg 

A  O 

o 

AJ 

A 

-o 

A 

rg 

O 

OO 

O 

4 

eg 

4 

O 

O 

A 

A 

O  A 

o 

4 

- 

o 

4 

HI 

H>  UJ 

eg 

rg 

rg 

- 

- 

- 

- 

t> 

fg 

O 

A 

-» 

A  rg 

rg 

*“ 

A 

UJ 

A- 

HI 

O 

A 

r*. 

A 

o 

A 

fg 

A 

O 

A 

fg 

A 

O  A 

fg 

Q 

*— 

rg 

A 

A 

•4 

4 

A 

O 

O  fg 

fg 

A 

o 

O 

O 

el  *- 

eg 

eg 

O 

*“ 

»—  •— 

*— 

*- 

402 


HD  =>C  Sire  IC-OCCCCOPO 


>  O  O  O  O  O  < 
)  O  O  O  O  O  f 

>  O  O  O  O  O  ( 
)  O  O  O  O  O  f 

>  O  O  O  O  O  ( 

>  o  o  o  o  o  < 

>  O  O  O  O  O  C 

>  o  o  o  o  o  < 
>00000' 


LU  O  rvj  0 o  -J  O  O  ffl  ^O'ONW'JO-OfNiOO^O  ©  nj 


O^O^JCON-OOOOOOOOO' 

Oo<-o©oo~ooooooooo; 

in  Ki  N  r\j  4C3000000000C 
r\j  K1  O  O  ©OOOOOOOOOOC 
CilOOmOOOOOOOOOOOC 
o»-o.©ooooooooooor 
40N-OOOOOOOOOOOOC 

m-o^-oooooooooooo< 

•0.-OOOOOOOOOOOOOC 


>0000 
>0000 
>0000 
>0000 
1  o  o  o  o 
10000 
>0000 
>0000 
>0000 


0000000000000000000000 


>00000 
.  O  ^  Kl  ^ 

l  r\i  ■O  O  ro  t- 

•  iam 

|  N  T-  MM  o 

)  r>J  ©  4  OM 

>  O  M  m  *—  n 

lOOOMr- 

>  *—  m  m  ©  in 


r-KMM»*0''0«IMMM 


>00000 

>00000 

>00000 

>00000 

>00000 

>00000 

>00000 

>00000 

>00000 


o  o  o  o 

0000 
0000 
o  o  o  o 
0000 
0000 
0000 
0000 
0000 


J  M  j  «»  >j  4  in  in  m  in  in 

u>  00000000000 

I  I  I  I  I  I  I  I  I  I  I 

00000000000 

©  O  -O  O  m  O  <U  uO  O  (>  m 

DO  K.  OO-JMO^OMN 
O  O  *-  O  r-  4  en  0  O  N 
4MQOrOMMMM4 
0'4«OMi/\OMOM»0 
Ml  M  M  0*0*—  OOO'fO.'O 
'OOo^'str^u^r^'OOtn 

M004Mr'C>'04MKlM 


>-4  0  O  m  CO  4  O  o  m  10  4 
7  *-«-njnjo-4-4i/>m<© 


00  4  40  p^>K>OOOOOOOOC 
in  >  1>  O  >  400000000- 
0©0f^*n«-00000000f 
4  000000000' 
m  *-  r-.  -omooo  OOOOOOC 
*n-4©«-oo  00000  ooor 
mo  omooooooooOoc 
m  m  -400000  0  OOOOOC 

oomooooooooooooc 


3  0  0  0  0  0 
3  0  0  0  0  0 
3  0  0  0  0  0 
3  0  0  0  0  0 
3  0  0  0  0  0 
3  0  0  0  0  0 
3  O  O  O  O  O 
3  0  0  0  0  0 
3  0  0  0  0  0 


0000000000000000000000 


i44444inmkninm 

IOOOOOOOOOO 

1111(11111 

>0000000000 

»(0M>0’0MM«4NO 
r  ©  in  4  »-  O  »M  M  M  O 
■MN#MO(flOMO 
I-SMQ--0O--N 
lOOCOKKIMO-JMOa 
■r4M>OMMnOO 
^■0004^>nMin4 
.  m  J  in  n  o  ,•>  O  M  <-  O 

1  o  4  m  o  4  »n  »n  m 


1/1  1/1  1/1 

O  O  iM 

Z  ^  in  in  r 

O  o  n  or  m  ^  i-  cr 

>  >  >  j  z  o  i»j  z  <a 

uj  m  m  o  1  111  O  uj 

in  «nxro«3C>- 

n  n  «-  o  N  m  M  4 

O  OOOOOOO 

♦  ♦♦♦(III 

O  OOOOOOO 

o  r-j  r*>  ©  ©  m  n  m 

*-  «-•-•©  >n  an  ©  .4 

m  m  o  •—  in  4  m  rs. 

O  o  f>“  *-  o  o  m  m 


>013000  1 

>  o  o  o  o  o  c 

>  O  O  O  O  o  C 

>  o  o  o  o  o  c 

>  O  3  O  O  O  ' 

>  o  o  o  o  o  c 

>  O  O  O  O  O  ( 
1  o  o  o  o  o  c 
I  o  o  o  o  o  < 


>0000 

>0000 

>0000 

5  0  0  0  0 

>0000 

>0000 

>0000 

>0000 

>0000 


00000 
*-  ©  *o  ©  o 
m  ©  ©  m  o 
o  m  m  o  rM 
T-n-ONO 

r-  o  o  o  m 

0-4  0-0-4 
O  00  in  o  m 
-4  O  O  N-  h- 


>4  in  ■/■>  m  *n  m 
o  o  o  o  o  o 

I  f  I  I  I  I 

000000 

(MN3fO<fl 
N  K>  M  O  <M  »- 
-4  ©  N-  4  ©  co 
MN  i—  O  «  4 
r-  1—  in  m  m  o 
irs  4  o  0-0 
*-  «—  to  m  m  t- 

1-  4  •“  o  f\l 


o«r>o-44>mmoooooc3ooooor>oon 

0  0-0  Of-  4  0  3  O  0  3  O  0  3  O  O  3  0  0  0  0  0 

oomr-  oooooooooooooooooo 
o  ■>  m  .n  -n  .—  3  o  o  300000  00  00000 
oino-*mooooooooooooooooo 
Qf-Min^  00000.3  00  000  OOOOOO 
O-O-O-OOOOOOOOOOOOOOOOOOC' 
00  ro  OOOOOO  (3  00000000000  o 
0-4  OOOOOOOOOOOOOOOOOOOO 

»-000000000000000000000 


4Mi-»-MnMMM 


_jrgK>4444inii/iir'i/'i 
UJOOO  OOOOOOO' 
1111(111111 
OOO  3  o  o  O  O  O  13  ( 
4  n  -o  i-  O-  N  K  in  in  O  f 
I-  ♦'O'OMOOMMOlTX 

m  •©  r--  ©  r--  <1  m  o  k>  k  > 
•n  -o*-Om-Orno'y<  4  » 

-t-4  -OO  4  »n  H-1  O  O  O  r 
0»-0r-i-  ONOO  4  i 
6>0K>1/100(VJ'04K>C 
o  m  in  n  ((>  -  •>  4  m  r 


IN  OE^StSS  FXO»  »X-A<15  TO  FLOW  D^iCTIJN  4T  CEMWOIO  OF  ELEVEN! 


o  o  n  o  ( 
o  o  o  o  • 
o  o  o  o  < 
o  o  o  o  < 
o  o  o  o  c 
O  O  O  O  f 

o  o  o  o  < 

O  O  O  O  t 

o  o  o  o  < 


oooooooooo 


0  0  0  0*0000000 

I  I  I  I  I  I  I  I  I  I  I 

ooooooooooo 

ooooooooooo 

00  0  000000*3  0 

ooooooooooo 

ooooooooooo 

ooooooooooo 

ooooooooooo 

ooooooooooo 

ooooooooooo 

ooooooooooo 


JOOOOOOOOOOO 

I  I  I  I . . 

oooonaooooo 

OOOOOOOOOOO 

ooooooooooo 

OO  3000000  0  0 
OOOOOOOOOOO 
OOOOOOOOOOO 
OOOOOOOOOOO 
ooooooooooo 
OOOOOOOOOOO 

OOOOOOOOOOO 


>  (3  *3  Q  O  Q 
>00000 
>00000 
>00000 
>00000 
>00000 
>00000 
>00000 
>00000 


tu  O  O  o  o  < 
•  III 
O  O  O  O  ( 
o  o  O  O  f 
O  O  O  O  f 

o  o  o  o  < 
O  o  o  o  < 

0  3  0  0' 
O  O  O  o  < 
0  0  0*3 

o  o  o  o  c 


>00000 
I  o  o  o  o  o 
>00000 
>*30000 
>00000 
>00000 
>00000 
>0*3000 
>00000 


ooooooooooo 


uj  O  O  O  O  O  O  O  O  O  • 
I  I  I  I  I  I  I  I  I  I 
■3  3  O  .*3  O  r>  »3  *3  O  < 
OOOOOOOOOC 
300  0  00000*" 
OOOOOOOOOf 
000000*300' 
OOOOOOOOOf 

o  o  o  o  o  o  «o  O  o 

OOOOOOOOOC 
3  3  O  O  O  O  *3  O  O  ' 

0  3  0  3  *3  0  0  3  O  ■- 


t  •-  i/n  r«-  *-  •  j  i  ''j  >  ■> 

•-  ((IMO  ill  >‘i  41  f  *—•)<!' 

J  -f  i/A  O  f\J  )  4*  i/A  i>  O  O  «—  1  3  «  3 

r-  n  if<  w  if  f>  n'  t  v  >*  n  ■  )  i  )  1  1 

''j  \g  r\j  o-.  aj  f-  <\*  r-  t*.  t  N-  3  J  * 

O  *-  *-  rc  •  i  »  >  f  -1  «  3  ■ 

o  o  n  1^  -g  i  o  f*.  o  o  n  -> 

o  o  <>  o  m  ~t 

|>  ■>  •*•«»■  •*•  >  O  t.— 


•j  •—  fo  i/>  r-  r  fv  1/mv  .g  o  r'  >  a  >  O  <>'■ 

«—  .<3  f*3  «>•  ri>  *«3  '»-  **3  -j  *1  j  .  3  1  O  O  •  3  "> 

O  J  iA  «>  f-J  C’  <>  'A  ^  O  O  —  O  O  ij  O  <  »  '  1 

«—  f>  lA  -A  lA  O  UD  J  'JO  *—  IV  J  3  O  O  J  <  J  '  J 

aj  ra  aj  1/.  r-4  n  aj  n  K-  4  n  n  (  1  n  o  0  n 

>  or-  o-jr-^N-r-ro-}'!  or ->“>■>  > 

o  1  "O  ir>  .j  Ag  -t  »*-\  <1  A-  ct  <  3  O  O  <’ »  •  )  •  >  •  > 

*>  i>  f>  O-  <33  t  A3  M  'j  o  O  3  1  O  D  '"l  ) 

r>  o  i>  o  tr  .>  <*>  j  ^  n  o  ai  d  f’  0  1  )  n  n 

O  g""*  O  O  0  o  O  r  3  O  O  <  >  O  r'  <  »  «■“>  C  )  '  . 


n  a  N  «—  O  AJ  O  'O  •")  N»  -J  J  •  )  O  3  '  )  •  >  '  >  >  3 

n  r 1  A  N  (1  n  A  O  T  O'  -t  r-  <-,r->r  n  M  r'  CH'  ^ 

i*i  ■  J  iA  ■  1  7  to  tuAOJAAj-T*)  )  OOl')  ■>  3 

r  ca  o  o  a  ->t  <>  n_  -g  o  <*'  ^  O  O  o  r  *  '  3  r.3  *  >  O  <’  • 

00  f  M  N  IA  \  4  O  O  4  'JO'J  3  3  \3  O  O  "*  •  » 

<3  N  r-  ^  'O  (A  O  fO  O  O  >4  O  O  o  O  n  '  J  O  A'  1  *  1  ' 

.»'>  t  K  <>  f\i  N  ^  i/>  >')  I  VJ  ' J  •  )  rJ  J  » ■»  •  >  •  J  > 

00  <■>-<>  -o  <<  a  r  m  aj  n  n  n  o  n  '  1  n  o  n  n  f  ' 

■»  o  >..>  >  -*■  O  O  <M  O  •  3  O  3  01  DO'-'  3  3 


n  o  3  O  O  3  3  3  ■>  • 


■  o  <*}  o  r--  -4^0000000 

)N  O  to  t*-  3  3  3  1  o  o  o 

>  0^u'0*0f\»0000000 
r  ■>  to*o»-  ->000000 
-  fM  vf  O  O  ‘t  o  o  o  o  AT  rt  o  o 

4  >  <j  .>  ./  >  o  ■  t  o  v>  a  >  o  n 

■  f^-o»/>toooooooooo 

)  O  anj  ^g  .  3  ‘J  O  O  O  ■  5  O  O  O 

'O  o  f\j  o  O  O  O  O  O  A  ?  o  o 


z  »-  i/o  r 
o  d  mA  ^ 

■j  *r  )  »■  m  /  -t 

ui  M  o  «J  Ml  O  Ml 

^  i  r  n  «  r  >■ 

•  r\  t  sJ  I—  -)  —  'Ng 

o  r»  o  o  r~»  o  o 

♦  ♦  ¥  ♦  ♦  I  I 

o  o  n  rs  o  o  o 

rff  o  V  «-  <>  >0  ►. 

r«^  f-.  (/-\  r->  -o 

-t  ^  »-  t  >  t  o 

O  IA  IA  n  4  -t  on 


»  3r-  00  jr^OOfO  »0-T  J  J  0  ■  >  O  •>  5  0 

1  ry  a  a  n  a  fv.rviri^t.-r^OO^r^r*>ooOO 
I  —  4  r\j  '-)  >  f>  -\J  Ol^  Or~>  T'JOOOOOT'-) 

>100  r-  Y>o  O  AM  O  -C  o  O  o  r-i  ri  o  O  O  C'r~’  r  ■> 

*  o  0  vT»  ■)  ~>  O'  O  O  •-  '"J  5  0  OOO  50  30 

^  O  a>  u-»  r\j  O  f'  O  O  O  O  O  O  O  l~>  O  O 

©•  -O  "1  A  -\j  l>  >  O  f\gOO  500000000 
OOO  N  ^  OOOOOOOOOOOOO 
,  o  >  ->  .>  o  rv  o  O  O  O  O  '.3  ^3  3000  0  0 

>  3  0  0  0  0  .300  30  3000000  3  O  3 


o  -o  r~»  •-  m  gi  r>  n  nr*  lA  n  ci  o  p  rj  -  ri  o 

5  >  N  N  A  OOO  OOO  3  3  30 

c>ar«—  rv  t  >  o  o  am  <ito'nnnonannorici 

•3  A  >A  >  AM  O  o-  ~>  'M  -3  <3  O  3  3  0  0  3  3  0  3  3  '  3 

fi  ia  >a  ir  «»  1 r,  o  (3  ft  f~>  a  •—  r3  r_'f~>r' 1  n  o  n  r“  n  r  •> 

0  0  t  O  •'A  O  ^  .3  -3  3  0  3  0  3  0  3  0  3  0 

r  1  o  a>  n  k>  ai  i»  r>  nMnrinpnnpnnnfi 

3  ,>  >  >  fs^  ^  ,  0  3  3  0  000  3  A3  3  0  30 

n  o  »  f>  f>  o  i>  a-  mnpnoorinonnf'A'fi 


onno  r>  c>  A3  to  t3  r 


‘J  -A  A  t  f  .A  O  O  f.  1 


N006 


